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Apple pour tous; la découverte de l'Apple ; Clefs pour Apple Il; clefs pour Apple //c; 
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Apple ; 102 programmes pour Apple ; la pratique fichiers ; gestion de fichiers et de périphériques 
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LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


TRANSMETTEZ-NOUS VOS TEXTES 
PAR TELEPHONE 


LE 
; 
DONNEZ-NOUS VOTRE DISQUETTE 


E : Les textes de Vos articles, catalogues, annuaires ou brochures 
1] | } saisis sur votre APPLE sont envoyés directement sur notre photocom- 
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nt Nous vous évitons ainsi, le coût et le temps de la saisie supplé- 
EE mentaire que nécessite le traitement traditionnel de la photocompo- 
ane: sition avant l'impression des documents, si vous le désirez nous pou- 


vons également nous charger de l'impression et du brochage. 
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Editorial 


La galaxie Apple est décidément en état de mouvement perpétuel ! Steve Wozniak crée une nouvelle 

société spécialisée dans le gadget électronique pour écrans familiaux. quittant ainsi Apple qui. selon lui. 

n'a pas assez développé l'Apple I! 

Avant son dépert. lors d'une interview. Steve déclarait que le / n'est plus appelé à étre ‘étendu. en 

tous cas par Apple. La rubrique Micro-informations apporte de plus amples renseignements sur Apple et 

sa politique. 

De note côté de l'Atlantique. nous avons de bonnes raisons de pavoiser. Les deux meilleurs logiciels 

de gestion de fichiers sur le Macintosh. parini une quinzaine de concurrents. sont de création française. 

Fe X à passé un accord avec Hayden Software pour la commercialisation de CX MacBase aux 
tats-Unis. 

A.CI a réalisé une très belle performance en emportant. avec son programme ABCbase. le prix 

convoité de la Pomme d'Or. 


Au niveau du matériel, Apple-Tell réalise un triomphe. ayant réussi à vendre en décembre sa 
1000° carte. et en voyant la Pomme d'Or couronner trois créateurs ayant réalisé leurs développements 
autour de cette carte. 


Nous vous proposons dans ce numéro un questionnaire que vous pouvez compléter et nous renvoyer. 
Ï y aura 15 abonnements (avec disquettes) à Pom's à gagner. Pour participer au tirage au sort, il vous 
suffit de nous le faire parvenir avant la fin du mois d'avril Les lecteurs déjà abonnés pourront prolonger 
leur abonnement. ou l'offrir (nous encourageons toujours le prosélytisme...). La liste des gagnants 
pourra étre consultée sur notre stand au Sicob Printemps ou à Apple Expo (toutefois. les gagnants 
seront prévenus par courrier). Bien entendu. un seul questionnaire peut être envoyé par lecteur Cela 
nous pennettia de mieux vous connaître et de mieux répondre à vos besoins. 


Pom's vous propose deux nouveaux produits. Le premier est une disquette de démonstration de Max 

the Globe Trotter. Max the Globe Trotter est un cours de 50 heures d'anglais sur des supports différents 

(livre. cassettes audio et disquette). il est vendu par Microlingua au prix de 1200 francs. 

Le second. MAX {sans rapport avec le précédent]. est un moniteur très étendu pour Apple +. eou 
c. qui comporte un accès direct aux registres. un mini-assembleur. et bien d'autres choses encore 


Dans ce numéro. vous trouverez. outre les rubriques habituelles “Courrier des lecteurs’ et “Micro- 
informations" que nous devons à Olivier Herz et Jean-Michel Gourévitch, la conclusion de la 
célèbre {et remarquable !} série ‘Initiation à l'assembleur”. réalisée par Gérard Michel. Gérard nous 
propose aussi une très utile routine (en assembleur. bien sûr...) destinée aux transferts de tableaux de 
variables. 

Pour rester au chapitre ‘initiation. Laurence Tichkowsky, qui fait désormais paitie de l'équipe de 
rédaction. débute une série sur le Pascal UCSD qui s'adresse à tous les utilisateurs d'Apple. quel que 
soit leur matériel. 

Alain Bellegarde met à notre disposition un programme d'animation de tables de formes. alors que 
François Sermier vous propose de transfonner (sans fer à souder !} votre Apple /’e en Apple {+ 

Avec un fer à souder cette fois. les utilisateurs de cartes 80 colonnes munies d'une sortie vidéo pourront 
modifier cette dernière afin ne plus avoir à changer les branchements pour passer de 80 à 40 colonnes. 
ceci à condition de bien respecter les instructions que communique Eric Pascual. 

Pour les utilisateurs d'imprimante Epson. Alexandre Avrane à écrit un programme de copie d'écran 
en assembleur. pendant que de son côté Jean-François Rabasse nous concoctait un mini-éditeur 
Basic. Vous trouverez aussi un programme écrit par François Fieury, qui effectue la conversion de 
valeurs numériques en leur équivalent en ‘toutes lettres” 


Malgré la densité des infonnations destinées aux utilisateurs d'Apple If. les possesseurs de Macintosh ne 

sont pas oubliés. En effet. Jean-Luc Bazanegue propose un ‘Catalogue sur imprimante’ et Ma- - 
rianne Sutz vous donne la marche à suivre pour ajouter deux nouvelles fonctions au Basic Microsoft 

Ces deux programmes font largement appel au langage machine 68000. processeur qui pourrait bien 

devenir le standard de la micro 

Nombreux sont ceux qui ont souligné l'intérêt pédagogique des articles Mac. bien que ne possédant ni 

Mac ni carte 68000 sur Apple If ou / Effectivement. il ne nous était pas apparu que. même sans Mac. 

on peut être passionné par le 68000. 


En ce qui concerne les disquettes Macintosh. et après quelques mois d'expérience. nous avons décidé 
de publier une disquette Mac par numéro. au prix de 80.00 F. Cela ne fait pas beaucoup plus cher 
qu'une disquette vierge et vous évitera de longues heures de saisie. Bien entendu la disquette regrou- 
pant les programmes des numéros 14 à 16 reste disponible à son prix habituel. 

Hervé Thiriez 
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Transfert rapide de tableaux 


Gérard Michel 


Dans le Pom'’s 12, nous vous avions 
présenté une petite routine en lan- 
gage machine, appelée au moven de 
l'ampersand, qui permettait d'effacer 
un tableau de variables en mémoire 
et d'incrémenter où décrémenter le 
nombre d'éléments dans un tableau 
à une seule dimension. 

Nous vous en proposons ici une se- 
conde, complémentaire de la précé- 
dente, qui permet de copier rapide- 
ment les valeurs des éléments d’un 
tableau dans un autre, sans passer 
par des boucles Applesoft, et ce 
quelle que soit la nature du tableau, 
dès lors que le tableau de départ et 
celui d'arrivée sont de même type. 


Pour plus de commodité, nous dési- 
gnerons par T1, T1% ou T1$, le 
nom du tableau original (qui peut 
donc s'appeler en fait A$, BS$, F%, 
HH...} et par T2, T2% ou T2$ le ta- 
bleau ”’duplicata” 


Syntaxe 


L'appel de la routine se fait par le 
biais d’une indirection dans la routine 
CHRGET ($B1}, utilisée par l'inter- 
préteur Applesoft pour lire tes carac- 
tères d’un programme. 

Le crochet fermant (]} servira de ca- 
ractère d'identification des instruc- 
tions de transfert de tableaux. C'est 
lui qui indiquera à la routine si l’ins- 
truction la concerne ou si la main 
doit être rendue à l'Applesoft. En 
outre, pour assurer un fonctionne- 
ment correct, le | doit toujours être 
précédé de deux points (:) dans une 
ligne de programme, même s'il se 
trouve en tout début de ligne. 

Par ailleurs, la définition préalable 
des deux tableaux (par DIM ou di- 
mension par défaut} est indispensa- 
ble pour l'emploi des instructions ci- 
dessous. 


Copie pure 
et simple 


e ]S T1,T2 
e :|S T1X.T2% 
e :]S T1$,T2$ 


Tous les octets composant le contenu 
de T1 (stockés dans la zone réservée 
aux variables dimensionnées) sont 
recopiés à l'identique aux adresses 
correspondant au contenu de T2. 
Les deux tableaux doivent être exac- 
tement de même taille (même nom- 
bre de dimensions et méme nombre 
d'éléments par dimension). 11 s’agit 
‘donc d'effectuer un MOVE de la 
zone de mémoire définissant T1 dans 
celle allouée à T2. 


Pour les tableaux de réels ou d'en- 
tiers (T1 ou T1%), l'instruction JS 


réalise en T2 ou T2% une copie to- 
talement indépendante de l'original, 
puisque c'est la valeur effective de 
chaque élément qui se trouve sto- 
ckée dans la zone des tableaux. On 
peut ainsi, par exemple, modifier en- 
suite la valeur de T2%(4) sans altérer 
pour autant celle de T1%{4), et réci- 
proquement. 


Pour les tableaux de chaînes de ca- 
ractères, en revanche, ce ne sont pas 
les chaînes elles-mêmes qui sont sto- 
ckées dans la zone des tableaux, 
mais leurs longueurs et leurs adres- 
ses. Par "JS T1$, T2$”, on copie 
donc en T2$ les paramètres définis- 
sant les chaînes de T1$, reliant ainsi 
une même chaîne à deux tableaux 
différents, sans rendre la copie indé- 
pendante de l'original. Si l'on modi- 
fie alors le contenu de T1$(10}, par 
exemple, on change celui de 
T2$(10) qui reste automatiquement 
identique à T1${10), et réciproque- 
ment. 

Ce type de manipulation présente 
lavantage de ne pas encombrer la 
mémoire avec des duplicatas de 
chaînes lorsqu'ils ne sont pas réelle- 
ment utiles. C'est notamment le cas 
pour une routine Applesoft d’affi- 
chage ou d'impression de tableaux 
alphanumétiques, appelée en plu- 
sieurs endroits d'un programme par 
GOSUB pour traiter des tableaux dif- 
férent (voir à ce propos l'exemple 
simplifié donné en première illustra- 
tion dans le programme de démons- 
tration listé en fin d'article). 

Toutefois, il faut se méfier alors des 
routines de nettoyage - mémoires qui 
ne sont pas prévues pour traiter Le 
cas de chaînes adressées dans deux 
variables distinctes et donnent des ré- 
sultats incohérents. En conséquence, 
il convient de toujours détruire le du- 
plicata après usage, au moven de la 
routine DIM.VAR.OBI du Pom's 12, 
dont le code objet est fourni en an- 
nexe (instruction &Nom du tableau). 


Copie et duplication 
des chaînes 


e :]D T1$.12$ 


Même traitement initial que ci-dessus. 
Les chaînes de T1$ sont ensuite co- 
piées, en un autre endroit de la mé- 
moire libre, et affectées à T2$ qui 
devient ainsi indépendant de T1$. 
Au prix d'un encombrement mé- 
moire en rapport, on réalise alors 
une véritable copie de l'original et de 
ses valeurs, du même type que celle 
obtenue par des instructions T2$ (...} 
= T1$ {.). 

Là encore, T1$ et T2$ doivent être 
de même taille. 


AR ENMENNENNNNNEENMENNN UE NII 


Copie de dimension 

e :]TTI1,T2,i,j,.,/,x.v..,/ 

e :]T T1R,12%ji,j..,/,X,Vs..1/ 
SIT T8 728.5 /x vel 


L'instruction ]T permet de copier les 
valeurs de tous les éléments de la di- 
mension la plus profonde de T1 dans 
la dimension la plus profonde de T2, 
avec duplication des chaînes s'il 
s'agit d'alphanumérique, en fonction 
de la valeur donnée pour les indices 
de niveau supérieur. 

T1 et T2 peuvent n'avoir pas le 
même nombre de dimensions, dès 
lors que la dimension la plus pro- 
fonde de T2 comporte un nombre 
d'éléments supérieur ou égal à celui 
de la dimension équivalente de T1. 


Exemples 


10 DIM A(10,5,30),B(30) 

20 :IT A,B,2,3,/,/ 

Copie les valeurs de A(2, 3, 0) à 
A(2, 3, 30) en B{0} à B(30) 

10 DIM comme ci-dessus 

20 :)T B,A,/.8,3,/ 

Copie les valeurs de B(0}) à B(30} en 
A(8, 3, 0) à A(8, 3, 30) 


10 DIM BB$(10,10),C${10,10.20) 
20 :IT BB$.C$,4,/,2,5,/ 

Copie de BB$(4, 0) à BB$(4, 10) en 
C${2, 5, 0) à C$(2, 5, 10) 


La valeur des indices de niveau su- 
périeur peut également être donnée 
sous forme de variables ou d’expres- 
sions numériques (voir programme 
de démonstration}. Evidemment, la 
valeur de l'indice pour la dimension 
la plus profonde n'est jamais indi- 
quée, puisque le transfert porte tou- 
jours sur tous les éléments de cette 
dimension. 


Mode d'emploi 


Vous pouvez suivre une procédure 
comparable à celle donnée au début 
du programme de démonstration : 


— Chargement de la routine de 
transfert ST.3; 

— Chargement du fichier INTER qui 
place l’indirection dans CHRGET et 
oriente sur ST.3 (d'où la nécessité de 
charger préalablement cette der- 
nière); 

— Chargement de DIM.VAR OBJ et 
initialisation du vecteur &. 


Après ces initialisations, vous pouvez 
utiliser sans problème les instructions 
de transfert dans vos programmes 
Applesoft. 

Pour revenir au Basic standard”. il 
suffit de charger le petit fichier 
CHRGET, qui rend à la routine 
“pin en $B1 son aspect ini- 
tial. 
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Précisions sur 
la structure 
des tableaux 


Rappelons brièvement les éléments 
les plus simples, déjà largement 
commentés par ailleurs, et dans le 
Porm's 12 en particulier. 


La représentation d'un tableau en 
mémoire commence toujours par : 

— Deux octets pour son nom. 

— Deux octets (poids faible / poids 
fort) pour le nombre total d'octets 
occupés par le tableau. 

— Un octet pour le nombre de di- 
mensions. 

— Deux octets par dimension (poids 
fort / poids faible) pour indiquer le 
nombre de ses éléments. On trouve 
d’abord le nombre d'éléments de la 
dimension la plus profonde et on re- 
monte ensuite jusqu'à la première, 
qui occupe ainsi les deux octets pré- 
cédant le contenu du premier élé- 
ment du tableau. 


Pour calculer l'adresse du premier 
élément d'un tableau à N dimen- 
sions, il faut donc ajouter ((2 x N) + 
5) à l'adresse du début du tableau 
(premier caractère du nom) dans la 
zone de stockage pointée par $6B — 
$6C. 

Chacun de ces éléments occupe 2 
octets (valeur entière) dans un ta- 
bleau d’entiers, 3 octets pour des 
chaînes (longueur et adresse de la 
chaîne), et 5 octets pour les réels 
(format flottant compacté). 


Le problème se complique un peu 
en ce qui concerne le mode de sto- 
ckage de ces éléments, c'est-à-dire 
l’ordre dans lequel ils sont ‘’rangés”. 

Le principe consiste en un classe- 
ment hiérarchisé dans l’ordre crois- 
sant des indices les plus profonds. 
Prenons l'exemple d'un tableau à 4 
dimensions (A,B,C,D), dont la valeur 
des indices respectifs sera notée a, b, 
c, d. En partant du début du tableau 
vers la fin, on trouvera les éléments 


dans l’ordre suivant : 

— Tous les éléments d'indice d = 0, 
avec d'abord tous ceux d'indices c = 
d = 0, parmi lesquels viennent 
d'abord tous ceux d'indices b = c = 
d = O, en tête desquels on trouve 
bien Die d'indice a=b=c 
=d=0. 

Cela nous donne, pour le tout début 
du tableau et en résumé, le classe- 


ment: (0,0,0,0) - (1,0,0,0) - 
(2,0,0,0) … (A,0,0.0) - (0,1,0,0) - 
(1,1,0,0) (A,i,0,0) - (0,2,0,0) - 


(1,2,0,0) … (A,2,0,0) … (A,B.0,0) - 
(0,0,1,0) - (1,0,1,0) … () … (A.B,1,0) 
- (0,0,2,0) … (] .… (A,B,C,O). 

— Viennent ensuite les éléments d'in- 
dice d = 1, avec la même hiérarchie 
pour les indices supérieurs: de 
(0,0,0,1) à (A.0,0,1), puis (0,1,0,1) à 
(A,B,0,1), puis de (0,0,1,1) à 
(A,B,C, 1). 

— Et ainsi de suite jusqu’à, enfin, la 
série des éléments d'indice d =D, de 
(0,0,0,D) à (A,B,C,D). 


Tout cela n'est pas particulièrement 
simple, il est vrai, mais conduit à des 
formules plus claires pour accéder 
aux éléments correspondant à une 
valeur donnée des indices de niveau 
supérieur et obtenir ainsi la série des 
éléments de la dimension la plus pro- 
fonde pour cette valeur. 

Î nous faut connaître l'adresse du 
premier élément appartenant à la 
série (indice = O pour la dimension 
la plus profonde) et la ‘’distance” qui 
sépare deux élements consécutifs 
dans cette série. 


Pour l'adresse du début de série, le 
problème cénsiste à calculer le déca- 
lage en octets qui sépare le premier 
élément qui nous intéresse du tout 
premier élément du tableau. Pour 
notre exemple de dimension 
(A,B,C,D), le premier élément d'in- 
dice (a,b,c,0) se trouve à : 

D = a + (Ab) + (AxBxc) 

éléments du tout premier (0,0.0,0). 
Pour convertir ce décalage en octets, 
il suffit de multiplier D par le nombre 


Source Big Mac 15 S3 
16 54 
17 
À 62626 2606 6 DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DEC DE DE DE DE DE "g" 
2 * * i8 
3 * COPIE RAPIDE DE TABLEAUX # 19 
4 * CODE = ST.3 * 20 
5 « * 21 KS3 
© HOMME ME JE DE JE JE JE DE DE DE DE DE DE DE DE DE DE DE JE DE DE JE JE JE JE JE DE DE 22 KSi 
7 * 23 KSO 
8 ORG  $8DE0 24 
9 O1 = $EE ; VARIABLES 25 
DE LA MULTIPLICATION 26 
10 02 = $EF ;02-01 <PO 27 SS0 
1DS FORT / POIDS FAIBLE) MULTIPLIE 28 
PAR M2-1 29 
11 Si = sF9 JAVEC RESU 30 KS2 
LTAT DANS 54-53 31 
12 S2 =  $FA 3ET COPIE 32 50 
DE 02-01 DONS S2-S1 33 
13 Mi = $FC 34 SR 
14 M2 = $FD 35 
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d'octets par élément (2, 3 ou 5). En 
ajoutant ensuite ce décalage à 
l'adresse de (0,0,0,0), on obtient 
l'adresse de (a,b,c,O). 

La distance entre deux éléments est 
donnée par le produit des dimen- 
sions de niveau supérieur (AxBxC), 
lui-même multiplié par le nombre 
d'octets par élément. 


De façon générale, pour un tableau à 
n+l dimensions (D1, D2  ,Dn, 
Dn+1), dont chaque élément occupe 
OC octets, et pour des valeurs Vi, 
V2 … Vn des indices de niveau supé- 
rieur, on obtient la série des éléments 
de la dimension la plus profonde par 
les formules : 

e Décalage en éléments = D = 

VI + 


D1xV2 + 
D1xD2+V3 + 
rune + 
D1+D2*D3 … #Dn-1+Vn 
e Dre en octets = DxOC = 


e Adresse de l'élément (VI, V2, … 
Vn, 0) = adresse de (0, O0, … O, O) 
+ DD 

e Distance entre deux éléments de 
la série = DI = 
(D1xD2x...*xDn)*OC 


Partant de cette structure, le principe 
de la routine de copie des dimen- 
sions les plus profondes consiste à : 

e Calculer pour les tableaux T1 et 
TZ les paramètres DD (puis 
l'adresse du premier élément) et 
DI. 

e Transférer ensuite les éléments un 
par un, en passant au suivant par 
ajout de la valeur de DI dans l'ori- 
ginal et de celle de Di dans la 
copie. Le nombre d'éléments à 
copier est indiqué par la dimen- 
sion la plus profonde de T1 

Les infonmnations complémentaires 

sont fournies dans les commentaires 

du programme source. 


E 
= $FE 
= $FF 
CMP. £$5D ; CARACTERE 
BEQ KS0 
CMP £$3A 
8BcC KS1 
RTS 
JMP  $BE 
JSR #81 
CMP £°’T’ 
BNE  SS0 
JMP TTO 
CMP £’D- 
BNE KS2 
JMP KS4 
CMP £’S’ 
BNE  KS3 
JSR SR 
JMP _KSS 
JSR $Bi 
JSR $F7D9 ; RECHERCHE 


DE TABLEAU 


POINTE PAR $88-$B9 


LDA +9B :$9B-89C P 
OINTE SUR LE NOM DU TABLEAU 
STA #6 
LDA #$9C 
STA #7 
LOY £0 
LDA ($B8),Y 
CMP  £82C 5", ? 
BNE KS3 
JSR $B1 
JSR #F7D9 ; RECHERCHE 
DU 2EME TABLEAU 
RTS 
KSs CLC 
LDA %6 
ADC £4 ;ON FAIT L 
E *MOVE" À PARTIR DU NOMBRE DE DIM 
ENSI ONS 
STA #3C 
LDA #7 
ADC £0 
STA #30 
LOY £2 
LDA ($6),Y ;NBRE OCTE 
TS DU TABLEAU -S (POUR CALCUL FIN 
MOVE ) 
SEC 
s8c £5 
STA #8 
INY 
LDA ($6),Y 
S8C £0 
STA #9 
CLC 
LDA #$3C : CALCUL AD 
RESSE DE FIN DU "MOVE* 
ADC #8 
STA #$3E 
LDA $3D 
ADC #9 
STA $3F 
CLC 
LDA #98 ;ADRESSE D 
U TRANSFERT (TABLEAU 2) 
ADC £4 
STA $42 
LDA $9C 
ADC £0 
STA $43 
LDY £0 
JSR $FE2C MOVE 
JSR #87 
RTS 
Ksa JSR SD ; COPIE DES 
CHAINES --> MOVE COMPLET DANS UN 
1ER TEMPS 
LDA #$9B 
STA $CE 
LOY £2 
ÉLÉ 
ADC ($9B),Y 
STA $6 ;$6-87 = A 
DRESSE FIN DU TABLEAU + 1 
LDA $9C ; (ADRESSE 
TABLEAU + SON NOMBRE D’OCTETS) 
STA $CF 
INY 
ADC ($9B),Y 
STA #7 
LOY £4 ; CALCUL DE 
L'ADRESSE DU 1ER ELEMENT DU TABLE 
AU 
LDA ($CE),Y 
ASL 
CLC 


ADC £5 
BCC TG 
INC $CF 
CLC 
TO ADC $CE s REMIS EN 
SCE-$SCF (DEBUT + (NBRE DIM x 2) + 
5) 
STA $CE 
BCC Ti 
INC $CF 
T1 JSR TR 
JMP T4 
TR LDY £2 
LDA (C$CE),Y sPOIDS FOR 
T DE L’ADRESSE DE LA CHAINE 
STA $8 
DEY 
LDA ($CE),Y ;3POIDS FAI 
BLE DE L’ADRESSE DE LA CHINE 
TAX 
DEY 
LDA $70 :5$6F-$70 E 
T $71-$72 = ADRESSE CONTENUE EN $6 
F-$70 
STA $72 sMOINS LEON 
GUEUR DE LA CHINE 
LDA $6F 
SEC 
SBC ($CE),Y 
STA $71 
STA $6F 
BCS T2 
DEC $72 
DEC $70 
T2 LDA ($CE),Y 
LDY $8 
JSR S$ESE2 sDEPLACE L 
À CHINE POINTEE PAR X-Y 
LDY £2 :EN POSITI 
ON POINTEE PAR $71-$72 
LDA $70 
STA ($CE),Y MAJ NOUVE 
LLE ADRESSE CHINE DANS 2E£ME TAB (« 
T2) 
DEY 
LDA $6F 
STA ($CE),Y 
RTS 
T4 LDA $CE ; CALCUL AD 
RESSE ELEMENT SUIVANT S'IL EXISTE 
CLC 
ADC £3 
STA $CE 
BCC T3 
INC $CF 
T3 LDA $CF 
CMP $7 ;ARRIVE À 
LA FIN DU TABLEAU 
BNE TI 
LDA $CE 
CMP #86 
BNE Ti 
JSR $B?7 
RTS 
TTO JSR SR s RECHERCHE 
DES DEUX TABLEAUX T1 ET T2 
LDA $9B 
STA $CE 
LDA $9C 
STA S$CF 
LDA £5 
STA  $BD 5 CALCUL DU 
NBRE D’OCTETS PAR ELEMENT (5, 3 0 
U 2) 
LDY  £1 
LDA ($6),Y 
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157 
158 


159 
160 


161 

162 
163 
164 
165 


1éé 


167 
168 
169 
170 
171 
172 
173 
174 


175 
176 
177 
178 
179 
180 
181 


182 


183 


184 
185 


186 


187 
188 
189 
190 
191 


192 
193 
194 
195 
196 
197 


198 
199 
200 
201 
202 
203 


204 
205 


206 


207 
208 
209 
210 
211 

212 
213 
214 
215 


8PL  TTO0 
LDA £3 
STA  $8D 
DEY 
LDA (86) ,Y 
8PL  TTO0 
DEC +$8D 
TTO0 LDY £5 
LDA ($6),Y :VERIFIE : 
DIM LA PLUS PROFONDE DE T2 
STA S$D7 >» SUP. OÙ € 
GAL À DIM LA PLUS PROFONDE DE T1 
LDA (S$CE),Y 
CMP $D7 
8EQ TTI 
8CcS TTi00 
TT2 JMP  $DEC9 
TTI INT 
LDA 4$6),Y 
STA $Dé ;ET $D6-$0 
7=NBRE ELE. OANS DIM PLUS PROFONDE 
T1 
LDA (S$CE),Y 
CP  $Dé 
BCC TT2 
TTI100 JSR TTA40 
JMP  TT20 
TTA4a0 LDA £0 
STA $ED > DONNERA N 
BRE DE DIM MOINS 2 EN FINAL 
TT4 JSR S$DEBE >VERIFIE P 
RESENCE DE * ,° ET LIT CARACTERE SU 
1VANT 
CMP £5CB 3; TOKEN DE 
+ dr 
BEQ TT3 
JSR S$SDDé7 >EVALUE EX 
PRESSION POINTEE PAR $88-$589 
JSR $E752 ; COWERTIT 
EN ENTIER À 2 OCTETS RANGE EN $50 
—$5S1 
LDA $ED 
ASL 
TAX 
LDA $50 
STA Di,X > STOCKE LA 
VALEUR DE L’INDICE 
LDA $51 
INX 
STA DI,X 
INC $ED 
JMP TF4 
TT3 INC $ED >VERIFIE N 
BRE D’INDICES / NOMBRE DE DIMENSIO 
NS 
LDY £4 
LDR ($6),Y 
CMP $ED 
8EQ TTS 
JMP TT2 
TTS DEC $ED > RETOUR AU 
NOMBRE D'INDICES “UTILE® 
DEC $ED 
LDA $ED 
BMI TT9 51 SEULE D 
IM OANS LE TABLEAU CDONC RIEN AVAN 
T /) 
LDX £i 
LOR ($6),Y 
TAY 
DEY 
TYA 
ASL 
CLC 
ADC £5 
TAY ;Y POINTE 


SUR NS8RE ELEMENTS DANS LA 1ERE DIM 
Pom's n° 17 





STY +$EB 
STY $EC 
TTI0 LDA D1,X 3VERIFIE VU 
ALEUR DE L’INDICE < NBRE ELEMENTS 
DANS LA DIM 
CMP (#6) ,Y 
BCC TTé 
BEQ TT? 
TT8 JMP  TT2 
TT7 INY 
DEX 
LDA D1,X 
CMP  ($6),Y 
8cS TT8 
INX 
DEY 
TTé INX 
INX 
DEY 
DEY 
CPY £5 ; TOUS INDI 
CES TRAITES ? 
BNE TTI0 
TT9 LOX £0 
STX #18 5$18-$19 = 
DECALAGE PREMIER ELEMENT *UTILE* 
STX #19 ;PAR RAPPO 
RT AU 1ER ELEMENT DU TABLEAU 
STX $1B :$1A-S1B = 
DISTANCE ENTRE DEUX ELEMENTS ‘UTI 
LES” 
LDA $ED 
8PL TFII 
INX 
STX S$iA 3SI 1 DIM 
=> DECALAGE 0 ET DISTANCE = 1 FOIS 
LDA £7 ;NBRE OCTE 
TS PAR ELEMENTS 
JMP TTI8 ;1ER ELEME 
NT EST À 7 OCTETS DU 1ER CARACTERE 
DU NOM 
TTII BNE TTI2 
LDY $E8 
LDA ($6),Y ;S1 2 DIM 
X ET Y, DECALAGE = INDICE x 
STA $1B 5ET DISTAN 
CE = X F01S NBRE OCTETS PAR ELEMEN 
= 
INT 
LDA ($6),Y 
STA $#1A 
LDA £9 ;IER ELEME 
NT EST À 9 OCTETS DU IER CARACTERE 
DU NOM 
JMP  TTI8 
TTE2 STX $1A 
LDY $EC 
LDA (#86) ,Y 
STA 02 ;NSRE ELEM 
ENTS DANS IERE DIM (X) DANS 02-01 
INY 
LDA ($6),Y 
STA 0! 
TT14 DEC $EC 
DEC $EC 
LDY $EC 
LDA ($6),Y 
STA M2 ÿMULTIPLIC 
ATION PAR NBRE ELEMENTS DE LA DIM 
SUIVANTE 
INY 
LDA ($6),Y 
STA Mi 
JSR MULT 
LDA S3 
STA S$IA ;:MAJ DU RE 
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273 
274 
275 
276 
277 


278 
279 


280 
2B1 
282 
283 
284 
285 


286 
287 
288 
289 
290 


291 
292 
293 
294 
295 
296 
297 
298 


299 
300 
301 


302 
303 
304 
305 
306 
307 
308 
309 


310 
311 


312 


313 
314 
315 


316 


317 


318 
319 
320 
321 


322 


323 
324 
325 
326 
327 


328 


329 
330 


SULTAT EN $1A-$1B 


LDA 
STA 
LDA 
CMP 


sa 
$18 
$EC 
£7 


BEQ TT13 


ON ARRETE 


À L'AVANT DERNIERE DIM (A 7 OCTET 


S DU BORD) 
LD 
STA O1 


3 RESULTAT 


EN 02-01 ET MULT PAR DIM SUIVANTE 


LDA $1B 
STA O2 

JUMP  TT14 
LDY $EB 
STY $EC 
LOA ($6),Y 


TT13 


STA 02 

INY 

LDA ($6),Y 
STA O! 

LDX £2 


A LA VALEUR DE L’INDICE 


ME DIM 
TTié D1,X 


STA MI 


JSR MULT 


;X DANS 02 


; COMMENCE 
POUR LA 2E 


;MULTIPLIC 


ATION PAR VALEUR DE L’INDICE POUR 


LA DIM SUIVANTE 


CLC 

LOA 53 

ADC #18 ;ACCUMULAT 
ION DES RESULTATS INTERMEDIAIRES 

STA #18 

LDA 54 

ADC #19 

STA #19 

DEC $EC 

DEC $EC 

LDY $EC 

CPY £7 ;ARRIVE À 
L'AVANT DERNIÈRE DIM ? 

BEQ TTIS 

LOA  <86) ,Y DIM SUIVA 
NTE EN M2-H1 

STA M2 

IX «sé ,v 

STA MI 

LDA si ;S1-S2 CON 
TIENT TOUJOURS LE PRODUIT DES DIM 

STA o1 ; PRECEDENT 
ES, REMIS EN 01-02 

LA 52 

STA 02 

JSR  MULT 

LOA 53 PRODUIT D 
ES DIM REMIS EN 01-02 

STA O1 ; (POUR ASS 
URER SA CONSERVATION EN S1-S2) 

LDA 54 

STA 02 

PLA 

TAX 

INX PREND VAL 
EUR DE L’INDICE SUIVANT 

JM TTié ; POUR CONT 
INUER LES MULTIPLICATIONS 

TTIS PLA 
LDY %EB ;ON VA SE 


331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 


342 
343 


344 
345 
346 
347 
348 
349 
350 


351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 


362 
363 
364 
365 
366 


367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 


381 

382 
383 
384 
385 
386 
387 
388 
389 
390 
391 

392 


PLACER SUR LE TOUT PREMIER ELEMENT 
DU TABLEAU 


INY 
INY 
TYA 
TT18 ÉLC 
ADC %$6 
STA %6 
BCC TT17 
INC $7 
CLC 
TT17 LDA $ED 
gMi TTI71 51 SEULE D 
IM ? 
TT170 LDX £0 
LDA D1,X ; AJOUTE VA 
LEUR DU 1ER INDICE AU DECALAGE 
ADC $18 
STA #18 
INX 
LDA DI,X 
ADC #19 
STA #19 
LOA £0 : MULTIPLIE 


DECALAGE PAR NBRE D’OCTETS PAR EL 
EMENT 

STA 02 

LDA 
STA O1 
LDA 
STA Mi 
LDA 
STA M2 
JSR 
CLC 
LDA S3 
ADC $é 
1ER ELE. 


; DECALAGE 
+ ADR. —-) 1ER ELEMENT "U 
TILE" 
STA $6 
LDA S4 
ADC #7 
STA #7 
FTL?1 LDA £0 ;MULTIPLIE 
DISTANCE PAR NBRE D’OCTETS PAR EL 


EMENT 


STA 02 
LDA $B8D 
STA Oi 
LDA $iA 
STA MI 
LDRA $1B 
STA M2 
JSR MULT 
LDA S3 
STA $1A 
LDA Sa 
STA $1B 
RTS 
TT20 LDRA $é 3 SAUVE GARD 


E DES RESULTATS OBTENUS POUR LE 1E 
R TABLEAU T1 
STA $B 


$I1E 

$07 

$iF 

$CE ; CALCUL DE 
S PARAMETRES POUR LE SECOND TABLEA 
U T2 
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393 STA $6 CHAINES UNE À UNE AVEC MAJ DANS T 
394 LDA $CF 2 
395 STA 57 43S DEC $1E 5$1E-$1F = 
396 JSR SB1 NBRE DE CHAINES À COPIER 
397 JSR TT40 436 BNE TT26 
398 LDA $é6é 3 SAUVE GARD 437 LDA $1F 
E POUR COPIE DES CHAINES SI NECESS 438 BEQ FIN 
Ripe 439 TT26 LDA %1E 
399 STA $CE 440 CMP £SFF 
400 LDA #57 441 BNE TT27 
401 STA $CF 442 DEC SIF 
402 TT2S LDY £0 443 TT27 CLC sAJOUTE DI 
403 TT21 LDA ($582,Y ; TRANSFERT STANCE DNS T2 POUR PASSER À LA CH 
ELEMENT PAR ELEMENT AINE SUIVANTE 
404 STA ($6),Y 444 LDA $CE 
405 INY 445 ADC S$iA 
406 CPY $BD 446 STA $CE 
407 BNE TT21 447 LDA S$CF 
408 DEC SDé 5$D6-$D7 = 448 ADC 518 
NBRE ELEMENTS À TRANSFERER 449 STA SCF 
409 BNE TT22 450 JMP TT2B 
410 LDA  $D/ 451 FIN JMP  $B1 
411 8EQ TT23 452 MULT LDA O1 ; SOUS-ROUT 
412 TT22 LDA  $Dé INE DE MULTIPLICATION 
413 CMP  £SFF 453 STA Si 516 BITS P 
414 BNE TT24 AR 16 BITS / RESULTAT SUR 16 BITS 
415 DEC S$SD7 454 LDA 02 
416 TT24 CLC >AJOUTE DI1 455 STA S2 
STANCE DANS T1 asé LDA £0 
417 LDA $8 457 STA s3 
418 ADC $1C 458 STA S4 
419 STA $8 459 LDX £té 
420 LDA $9 460 8S1 LSR M2 
421 pre aéi ROR Mi 
422 ae 462 BcC BSO 
423 CLC ;AJOUTE DI 463 CLC 
STANCE DANS T2 464 LDA O1 
424 LDA $4 465 ADC s3 
425 ADC $iA A: de ei 
426 STA $é 467 LDA 02 
427 LDA #$7 468 ADC S4 
428 ADC $18 469 STA S4 
429 STAMEZ 470 850 ASL OI 
430 JMP  TT2S 471 ROL 02 
431 TT23 LDA $8D 472 DEX 
432 CMP £3 ; TABLEAU D 473 BME 8S1 
E CHAINES DE CARACTERES ? 474 RTS 
433 BNE FIN 475 D1 DS 180 ;2ONE DE S 
434 TT28 JSR TR >COPIE DES TOCKAGE DES VALEURS DES INDICES 
120 :5S88%,A$: GOSUB 30:8SC$,A$: GOSUB 30: 
TEST. ST3 8SD$,A$S: GOSUB 30:6SE$,A$: GOSUB 3 
0:6SF$,A$: GOSUB 30 
1 PRINT CHR$S (4)"BLOAD ST.3°: PRINT CH | 130 CLEAR 
R$ (4)“BLOAD INTER.3 135 DIM AZCÉ00) ,A(200) ,A$C300) ,A2/(100), 
S HIMEM: 36319 ÀA2(200) ,A2$5(300) 
6 PRINT CHR$S (4)"BLOAD DIM.VAR.0BJ°: PO 140 PRINT : PRINT "“INITIALISATION EN COU 
KE 1013,76: POKE 1014,7 x 16 + 12: RS®: FOR 1 = 0 TO 190:A%(19 = I:AC 
POKE 1015,9 * 16 + 2 1) = 100 x 1: NEXT : FOR 1 = 101 T 
10 DIM AS(300) ,8#(300) ,C$(300) ,0$(300) ,E O 200:AC13 = 100 x 1: NEXT : FOR 1 
$(300),F$(300) # 0 TO 300:A$CI1) = "ELEMENT * + 
12 TEXT : HOME STR$S (1): NEXT 
20 GOTO 95 145 PRINT “FIN INIT* 
30 FOR 1 = O0 TO 300: PRINT ASCII): NEXT : 150 :5SAZ,A2%:5SA,A2:SDA$ ,A28 
GET 2$: PRINT : & A$: DIM A$(300) 170 FOR 1 = O TO 100: PRINT AZ(ID,AZZ(1) 
: RETURN : NEXT : PRINT : GET 2$: PRINT : F 
95 PRINT “INITIALISATION TABLEAUX OR 1 = 0 TO 200: PRINT ACI),A2(1): 
100 FOR I = O TO 300:B$(1) = “TABLEAU B° NEXT : PRINT : GET 2$: PRINT 
+ STRS (I1):CSCI1) = "TABLEAU C° + 175 & AZ: & A2L: & A: & A2 
STRS (1):D$(1) = "TABLEAU D° + 177 PRINT *MODIFICATION DE A2$°: PRINT : 
STRS (1):ES(1) = "TABLEAU E° + ST FOR 1 = 0 TO 300 STEP 10:A2$(1) = 
RS (I1D:F$CID = "TABLEAU F" +  STRS$ A2$(1) + "MOD": NEXT 
(12: NEXT 178 FOR 1 = O TO 300: PRINT AS(I),A28(1) 
110 PRINT : PRINT "FIN INITIALISATION": : NEXT : PRINT 
PRINT 180 & AS: & A2$ 
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* Strhetst 


190 


DIM X1$4150 ): 


DIM X2#$(2,2,150) 


200 PRINT °INITIALISATION X1$°: FOR I = 
0 TO 150:X1$C1) = °X1$ NO " + STR 
$ (12: NEXT 

205 PRINT “FIN INIT" 

210 FOR J = 0 TO 2: FOR Z O0 TO 2:8TX1$ 
>X2$%, / ,d,2Z, / : FOR 1 = 0 TO 150 
3: PRINT X2$CJ,2,1),4J° Se “1: NE 
XT : GET Z$: PRINT NEXT : NEXT 

220 & X1#: & X?2$: DIM TiZ{1,1,1,1,2,40), 
T22(2,2,2,950) 

230 PRINT "INITIALISATION T1Z/": PRINT 

Récapitulation ARR ee nd 

8FFB- A2 02 60 

*#*90E0.9215S 9000- 8A 48 6D 

9008- 36 91 18 
80E0- C9 SD F0 08 C9 3A 90 01 9010- 18 AS FF 
8DE8- 60 4C 8E 00 20 BL 00 C9 9019- EC Cé EC 

8DF0- 54 DO 03 4C E2 8E C9 44 9020- 22 81 06 

8DF8- D0 03 4C 64 8E C9 53 DO 9028- 85 FC AS 

8E00- E7 20 07 8E 4C 24 8E 20 9030- 85 EF 20 

8E08- 681 00 20 D9 F7 AS 98 65 9038- EE A5 FF 

8E10- 06 AS 9C 85 07 A0 00 61 9040- 4C FA 8F 

8E18- 88 C9 2C DO CB 20 681 00 9049- 98 18 45 

8E20- 20 D9 F7 60 18 ÀS 06 67 9050- Eé 07 18 

8E28- 04 85 3C AS 07 69 00 85 9058- 00 6D é1 

8E30- 30 A0 02 81 06 38 E9 05 9060- E8 68D 41 

8E38- 85 08 C8 91 06 E9 00 685 9068- AS 00 85 

8E40- 09 18 AS 3C 65 08 85 3E 9070- AS 18 85 

8E48- AS 30 65 09 85 3F 18 AS 9079- 20 36 91 

8ES0- 98 69 04 85 42 AS 9C 67 9080- 85 06 A5 

8E58- 00 85 43 A0 00 20 2C FE 9088-— A9 00 85 

8Eé0- 20 87 00 60 20 01 8E AS 9090- AS 1A 85 

8E68- 98 95 CE À0 02 18 71 98 9098- 20 36 91 

8E70- 85 06 AS 9C 85 CF CB 71 90A0- FF 85 18 

8E78- 98 85 07 A0 04 BL CE 0AÀ 90A8- A5 07 85 

8E90- 18 69 05 90 03 Eé CF 18 9080- ÀS 1B 85 

8E88- 65 CE 85 CE 90 02 Eé CF 9098- AS D7 85 

8E90- 20 96 8E 4C C7 8E À0 02 90C0- A5 CF 85 

8E99- 91 CE 95 08 88 61 CE AA 90C8- 24 8F AS 

8EA0- 88 AS 70 85 72 AS 6F 38 9000- 85 CF AO 

8EA8- F1 CE 85 71 85 6F 680 04 90D8- CB C4 60 

8E80- Cé 72 Cé 70 681 CE A4 08 90E0- 04 AS D? 

8E88- 20 E2 ES A0 02 AS 70 91 90E8- FF DO 02 

8ECO- CE 98 AS 6F 91 CE 60 AS 90F0- 65 1C 85 

8EC8- CE 18 69 03 85 CE 90 02 90F8- 85 09 18 

8ED0- Eé CF AS CF CS 07 DO 88 9100- 06 A5 07 

8E08- AS CE CS 06 DO 82 20 87 9108- D2 90 AS 

8EE0- 00 60 20 07 SE À5 98 85 9110- 20 S6é 8E 

8EE8- CE AS 9C 85 CF A9 05 85 9118- 1F FO 18 

8EF0- 8D AO 01 61 06 19 08 A7 9120- 02 Cé 1F 

8EF8- 03 85 80 88 81 06 10 02 9128- 85 CE À5 

8F00- Cé 8D A0 05 B1 06 85 D7 9130- 4C 10 91 

8F08- 81 CE CS D7 F0 05 80 OE 9138- 985 F9 AS 

8F10- 4C C9 DE C8 81 06 85 Dé 9140- 85 FE 85 

8F18- 81 CE C5 Dé 90 F2 20 24 9148- 66 FC 90 

8F20- 8F 4C A4 90 À? 00 685 ED 9150- FE 85 FE 

8F28- 20 8€ DE C9 C6 FO 1A 20 9158- FF 06 EE 

8F30- 67 DD 20 52 E7 AS ED 0A 9160- 60 FF 00 

8F40- E8 90 61 91 Eé ED 4C 28 9170- 00 FF 00 

8F48- 8F Eé ED A0 94 81 06 CS 9178- 00 FF 00 

6FS50- ED FO 03 4C 19 6F Cé ED 9180- 00 FF 00 

8FS58- Cé ED AS ED 30 2F A2 61 9188- 00 FF 00 

8F60- 81 06 A8 98 98 0À 18 69 9190- 00 FF 00 

8F68- 05 AG 84 E8 684 EC BD 61 9198- 00 FF 00 

8F70- 9 D1 06 90 10 F0 03 4C 91A0- 00 FF 00 

8F78- 10 8F CB CA 68D 61 91 DI 91A8- 00 FF 00 

8F80- 06 80 F4 E68 66 E6 E6 68 9180- 00 FF 00 

8F88- 88 CO 05 DO Ei A2 00 86 9188- 00 FF 00 

8F90- 18 96 19 86 18 ÀS ED 10 91C0- 00 FF 00 

8F98- 08 E8 86 1A À9 07 4C 49 91C8- 00 FF 00 

8FA0- 90 DO 10 A4 EB 81 0é 85 91D0- 00 FF 00 

8FA8- 18 C8 81 06 85 1A A9 09 9108- 00 FF 00 

8F680- 4C 49 90 86 1A A4 EC 81 91E0- 00 FF 00 

8F88- 06 95 EF C8 81 06 85 EE 91E8- 00 FF 00 

8FCO- Cé EC Cé EC A4 EC 81 06 91F6- 00 FF 00 

8FcB- 685 FD C8 81 06 85 FC 20 91F9- 00 FF 00 

8FD0- 36 91 AS FE 85 1A AS FF 9200- 00 FF O0 

8FD8- 85 18 AS EC C9 07 FO 08 9208- 00 FF 00 

8FE0- AS A 85 EE AS 18 85 EF 9210- 00 FF O0 
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240 


245 
250 


270 





FOR I 0 TO 40:TI1Z(1,1,1,1,1,1) = 1 
00 x I: NEXT 
PRINT "FIN INIT 
FOR À 0 TO 2: FOR B = O0 TO 2: FOR 
C = O0 TO 2:S8TTIZ,T22,1,1,1,1,1, / 
A3B,C,;, / : FOR I! = O0 TO 50: PRINT 
T2Z(A,B,C,I),A" °B" "C" ‘1: NE 
XT 3: GET Z$: PRINT : NEXT C,B,A 
PRINT FOR À = 0 TO 2: FOR B = 0 TO 
2: FOR C = O0 TO 2: FOR D = O0 TO 5 
0: PRINT T2Z(A,B,C,90)" “3: NEXT D 
»C,B,A 
84 EC Bi #SEOAD DIM.VAR.083 
0é 85 EE 
85 FC E8 
85 FD 20 #927C.940C 
65 18 85 
85 19 Cé 927C- A4 68 84 8 
CO 07 F0 9280- A4 6C 84 19 AO 05 84 08 
CB 81 06 9288- A2 00 86 07 86 18 86 1C 
ÉE AS FA 9290- 86 10 86 09 FO 19 20 81 
AS FE 85 9298- 00 DO 04 Eé 1B DO 35 C9 
68 À E8 92A0- 24 FO 11 C9 235 FO 33 C9 
E8 ce Ce 92A8- C8 FO 21 C9 C9 FO 20 95 
Dé 90 03 9280- 06 E8 DO E2 Eé D AS 07 
30 31 A2 9288- 09 80 8S 07 A0 01 81 88 
18 85 168 92C0- 20 BA 00 FO OF 20 81 00 
19 85 19 92C8- C9 C8 DO 03 4C 50 93 Eé 
8D 85 EE 9200- 1C 4C 50 93 20 E5 92 4C 
19 85 FO 9208- 11 93 Eé 1D AS 06 09 80 
FE 65 06 92E0- 85 06 4C 84 92 A0 00 81 
07 &S 07 92E8- 18 C5 06 DO 07 C8 81 18 
80 85 EE 92F0- CS 07 FO 1C 20 00 93 685 
18 85 FD 92F8- 19 AS 1A 85 18 4C ES 92 
8s 1À AS 9300- AO 02 8 18 18 65 18 85 
06 85 08 9308- 1A C8 81 18 6S 19 85 1€ 
14 85 LC 9310- 60 AS 18 85 42 AS 19 85 
Dé 85 1E 9319- 43 C8 81 18 85 08 C8 81 
CE 85 06 9320- 18 85 09 20 00 93 AS 1A 
81 00 20 9329- 85 3C A5 1E 85 30 AS 6D 
CE AS 07 9330- 85 3E AS 6E 85 3F A0 00 
08 91 06 9338- 20 2C FE AS 60 38 ES 08 
Cé Dé D0 9340- 85 6D AS 6E ES 09 85 6E 
AS Dé C9 9348- A6 18 DO 03 20 81 00 60 
18 AS 08 9350- 20 ES 92 A0 04 81 18 C9 
09 65 10 9358- 01 DO Fi 20 00 93 AS 10 
65 1à 85 9360- F0 09 Cé 08 AS 08 38 ES 
85 07? 4c 9368- 10 85 08 AS 1C FO 38 AO 
03 DO 23 9370- 06 8i 18 38 E9 01 91 18 
DO 04 AS 9378- 98 81 18 E9 00 91 18 A0 
9380- 02 81 18 38 ES5 08 91 18 
ce se es 9388- C8 81 18 E9 00 91 18 AS 
18 85 CF 9390- 14 48 AS 1E 48 20 00 93 
00 ÀS EE 9398- 85 43 AS 1A 835 42 68 85 
FA A? 00 93A0- 3D 68 85 3C 4C 2E 93 A0 
10 46 FD 93A8- 06 81 18 18 69 O1 91 18 
AS EE 65 9380- 88 61 18 69 00 91 18 A0 
6S FF 85 9388- 02 681 18 18 65 08 91 18 
CA DO Eé 93C0- C8 81 18 69 00 91 18 AS 
FF 00 FF 93C8- 6E 85 07 85 09 AS 60 85 
FF 00 FF 93D0- 06 18 65 08 85 6D 85 08 
FF 00 FF 9308- 90 04 Eé 6E Eé 09 A0 00 
FF 00 FF 93E0- 81 06 91 08 AS 07 CS 1E 
FF 00 FF 93E8- D0 09 AS 06 CS iA 00 03 
FF 00 FF 93F0- 4C 4C 93 Cé 06 AS 06 C9 
FF 00 FF 93F8- FF DO 02 Cé 07 Cé 08 AS 
FF 00 FF 9400- 08 C9 FF DO D8 Cé 09 4C 
FF 00 FF 9408- E0 93 00 02 00 
FF 00 FF s 
FF 00 FF 
FF 00 FF . 
CADRE 8LOAD INTER.3 
FF 00 FF 
ce 008A- 4C E0 &D 
FF 00 FF 
FF 00 FF 
FF 00 FF *BLOAD CHRGET , 
FF 00 FF 
FF 00 FF #6A . 60 
FF 00 FF 
00 00BA- C9 3A 85 CA 
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Les pointeurs en 


Le Pascal est un langage qui a fait 
couler beaucoup d'encre et dont on 
parle suffisamment pour éveiller l’in- 
térêt de ceux qui programment. Il 
présente des particularités et offre 
des possibilités de développement 
que l'on ne trouve pas en Basic, en 
Fortran... 

Les avis sont très partagés, certains 
pensent qu'il est réservé aux univer- 
sitaires, pendant que d'autres mettent 
au point des produits comme PES, 
ABCbase.…. 

Le problème n'est pas de trancher 
sur la valeur du Pascal mais d'en 
parler. 


La notion de pointeurs est très spéci- 
fique au Pascal. Elle est importante, 
et permet d'aller plus loin dans la 
connaissance du langage. C'est pour- 
quoi nous lui consacrons. ici, ces 
quelques lignes. 


Les enregistrements 


A la lecture d'un programme. écrit 
en Pascal UCSD. vous avez sûre- 
ment déjà rencontré une déclaration 
de TYPE dans le genre de celle qui 
suit : 
ADRESSE=RECORO 
RUE : STRING; 
CPOS: STRING; 
VILLE:STRING 
END; 
ELEMENT=RECORPD 
NOM :S TRING; 
ADR:ADRESSE; 
AGE: STRING 
END ; 


ainsi pour définir la ville où habite 
Monsieur X on écrira, dans le pro- 
gramme principal ou dans la procé- 
dure. l'instruction d'affectation : 


ELEMENT ADR.VILLE:= "PARIS": 


La structure d'un enregistrement est 
un type (RECORDI. Les éléments le 
composant sont appelés : champs”. 
ils peuvent être de types différents 
La notion d'enregistrement est une 
notion récursive. En effet, un champ 
peut être défini comme un enregis- 
trement (dans la déclaration donnée 
ci-dessus, le champ ‘ADR’ est un 
enregistrement dont l'identificateur 
est ‘ADRESSE. les champs le 
composant sont des sous-champs) 
Les variables de type enregistrement 
sont les seules qui permettent de dé- 
finir des champs dont les types sont 
différents. Dans notre exemple. nous 
considèrerons des champs de type 
chaîne de caractères (STRING). 


Le système offre à cette structure de 
nombreux avantages. 


Il lui donne ia possibilité, grâce à l'in- 
truction WITH. d'alléger l'écriture des 
affectations de chaque champ. Ainsi. 
pour définir les champs composant 
l'erxegistrement ADRESSE on 
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écrira : 

WITH ADRESSE DO 
BEGIN 

RUES" 

CPOS =": 
VICLE=:> 

END: 


De ce fait, on évitera le préfixage de 
toutes les variables champs et donc 
des erreurs de frappe, malheureuse- 
ment trop fréquentes ! 

On peut aussi définir des enregistre- 
ment à champs variables. Pour ce 
faire, on utilisera l'instruction CASE 
OF; ainsi, la déclaration suivante sera 
autorisée : 


GERIRE=CFEMININ MASCULIN) ; 
PERSORNIMIE=RECIRD 
NOM: STRING: 
ADR:ADRESSE: 
CASE XX: OF GENRE 
FEMININ:STRING: 
MASCULIN:ZTRING 
END 
END; 


Cette notion d'enregistrement est 
grandement liée à celle de fichiers 
tout en restant indépendante En 
effet, pour créer un fichier de person- 
nes, nous aurons recours aux enre- 
gistrements pour stocker l'ensemble 
des informations les concemant. 


Les pointeurs 


En premier lieu. il est important de 
faire la différence entre les variables 
statiques et dynamiques. Une varia- 
ble déclarée comme suit : 


VAR X : TYPEÏ: 


est une variable statique. En effet, 
lors de la compilation, le compilateur 
alloue une case mémoire à la varia- 
ble X de type TYPEI L'adresse de 
cette case mémoire est fixée 

Par opposition. l'attribution d'une 
case mémoire à une variable dyna- 
mique se fait lors de son utilisation à 
l'exécution. Îl est à noter que les 
pointeurs traitent les variables dyna- 
miques. 


Un pointeur est une variable. il est 
associé à un type défini préalable- 
ment. cest pourquoi on renconire 
des pointeurs de toutes sortes : poin- 
teurs d'entiers. de caractères. de 
booléens. de tableaux. d'enregistre- 
ments. Ainsi on trouvera aisément 
dans les déclarations d'un pro- 
gramme 


TYPE PFR="ELEMENT à 
ELEFIENT=RECORD 
NOM: STRING: 


PRENOCM:STRING; 


DATE: STRING 
END ; 


VAR  PELT:PTR; 


Pascal UCSD 


Laurence Tichkowsky 


ELEMENT est un enregistrement re- 
groupant des informations comme : 
Nom, Prénom, Date de naissance, 
PTR définit des pointeurs d'ELE- 
MENT et PELT sont les variables qui 
vont pointer sur les différents enregis- 
trements. 


Pour plus de compréhension, pre- 
nons Un exemple et analysons-le. 
Notre exemple sera le programme 
TRI listé ci-après. Celui-ci fait un tri 
alphabétique sur les noms des diffé- 
rents enregistrements stockés dans le 
fichier TRil, de type TEXT. Les 
autres types de fichier seront étudiés 
ultérieurement. 


Analyse des procédures 
Procédure LIRE 


Le tableau de pointeurs d'ELEMENT 
est utile dans la mesure où il nous 
permettra d’avoir accès aux différents 
enregistrements stockés, de façon sé- 
quentielle, dans notre fichier TRI1. 
Celui-ci n'aura pas sa raison d'être 
lorsque nous parlerons de listes. 


Cette procédure est en fait celle qui 
nous donne la possibilité de saisir les 
enregistrements afin de remplir les 
champs composant le type ELE- 
MENT. 


L'appel de la procédure standard 
NEW, dont le paramètre est une va- 
tiable pointeur, est très importante. 
En effet. NEW(UP) entraîne la créa- 
tion d'un nouvel élément, permet 
l'allocation mémoire nécessaire à une 
nouvelle variable et de ranger 
l'adresse mémoire de l'espace alloué 
dans la variable VP. Ainsi, pour accé- 
der aux informations de ELEMENT il 
nous faudra passer par l’intermé- 
diaire de VP 


Remarque si l'enregistrement 
compoite des champs variables il 
faudra faire NEW{VP.CI..CN): Ci 
étant les valeurs correspondant aux 
différents choix d'une structure 
CASE. ils doivent être écrits dans 
l'ordre de la déclaraton. 


UP est de type PTR. lui-même déf- 
nissant un pointeur d'ELEMENT, 
ELEMENT étant un enregstrement 
composé des champs Nom. Prénom 
et Date Ainsi. afin de définir tes dif- 
férents champs considérés on écrira : 


VP NOM ou VP PRENOM ou en- 
core VP date. UP est une variable 
statique (selon la défnition donnée 
plus haut) tandis que VP est dyna- 
mique. En effet. c'est le NEW(UP) 
qui lui permet d'exister. Toutes les 
autres instructions de cette procédure 
n'ont nullement besoin d'être détail- 
lées. 
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Procédure LECTURE 


Elle appelle LIRE autant de fois qu'il 
y à d'éléments à trier et définit le ta- 
bleau de pointeurs. 


Les procédures 
CLASS et ECHANGE 


La procédure CLASS effectue un tri 
BULLE, c’est-à-dire que l'on consi- 
dère deux éléments consécutifs du fi- 
chier, on les compare et les échange 
s'il y a lieu. Cette procédure appelle 
ECHANGE. Le témoin COMPTEUR 
nous permnet de savoir quand le ti 
est terminé (il est égal à O quand le 
parcours de laiëte n’a pas entraîné 
d'échange). 


PROGRAM TRI CINPUT, OUTPUT) ; 


TYPE PTR=" ELEMENT ; 
ELEMENT =REC@RD 
NOM : STRING: 
PRENCM:STRING: 
DATE : STRING 
END; 


TAB-ARRAYI1..100] Of PTR; 


VAR PT:TAR: 
UP:PTR: 
NU, COMPTEUR :INTEGER: 
TRIT:FTIKT 


PROCEDURE LIRE; 


SEGIN 
NEUW£UP) ; 
WRITELNC NOM :°); 
REABLNCUP* .NOM) ; 
WRITELNETRIt.VP*.NOM) : 
WRITELNC’ PRENOM :°) : 
READLNCUP* .PREMNOM ) : 
WRITELN CTRI1,UP*.PRENCM) : 


WRITELNC'DATE DE AmISSANCE :°2; 


READLN (VRP .OATE) ; 
WRITELN {TRIL1.UP*.DATE) 
END; 
PROCEDURE LECTURE: 


BEGIN 


WRITELN C’LA LISTE A TRIER EST 


FOR N:=I1 TO Ü DO 
BEGIN 
LIRE: 
PTINI: LP 
END 
END: 


PROCEDURE ECHANGE (I :ISNTESER) ; 


BEGIN 
COMPTELIF :=0: 
VB:=PTII]: 
PTLIJ:=PTEI+131: 
PTCI+1]:=UP; 
COMFTEUR :=1 
END: 


PROCEDLERE CLASS; 
VAF I:INTEGEF: 


BESIN 
REPEAT 
BESIN 
COMETEUR:20; 
FOR f:=i TO U-1 0% 
BEGIN 
1F PTII) 
END 
ENO 


Procédure IMPRESSION 


Comme son nom l'indique, elle im- 
prime les résultats trouvés, c'est-à- 
dire, la liste des noms triés. 


Les listes 


Une des contraintes du Pascal réside 
dans la déclaration des tableaux. En 
effet, il est impossible de définir des 
tableaux de dimension variable. 
Ainsi, le plus souvent, on les sur-di- 
mensionne et la place mémoire dis- 
ponible se trouve réduite. Il serait 
donc intéressant d'exploiter la créa- 
tion dynamique au niveau des élé- 
ments d’un tableau. 


La structure d'un tableau établit une 


1 liaison entre celui-ci et ses éléments 


par l'intermédiaire des indices. Il faut 
donc trouver une représentation simi- 
laire. Cette représentation est celle 
des listes. Une liste est une suite 
d'éléments, créés dynamiquement, et 
reliés par une structure souple réali- 
sée à l'aide des pointeurs. 

Chaque élément de la liste se 

compose d’un minimum de deux in- 

fonnations : 

e ses composantes propres, corres- 
pondant à l'élément du tableau 
(entier, réel, enregistrement...) 

e le pointeur vers l'élément suivant 
de la liste. 

Le dessin ci-dessous montre un ta- 

bleau 

TAB=ARRAY(1.10] OF CHAR, 

dont les éléments sont À, B, C, D.E, 

F. G et sa représentation en liste. Ce 

schéma. bien que très primaire, met 

en évidence la shucture d'une liste 
par rapport à celle d’un tableau. 





.NORDPTCI+11".RIUM THEN ECHANGE I) 





Place 
mémoire 
perdue 


Une des grandes différences entre un 
tableau et une liste réside dans l'ac- 
cès aux éléments Lorsquil s'agit 
d'un tableau. il suffit de connaître 
l'indice qui lui est associé: les élé- 
ments d’une liste, quant à eux, sont 
accessibles par le pointeur pointant 
sur chacun. Ainsi, pour accéder au 
3° élément il nous faut connaître son 
pointeur, celui-ci est contenu dans le 
2°, dont le pointeur est contenu dans 
le 1 De ce fait. le premier élément 
trouvé nous donnera l'adresse du se- 
cond... 
Les éléments d’une liste sont, de part 
la structure du Pascal, des enregistre- 
ments. En effet. ils se composent de 
deux (ou plus) parties de types diffé- 
rents (dans notre exemple un carac- 
tère et un pointeur), et les seules va- 
riables autorisant le mélange des 
types sont les enregistrements. Ainsi, 
les éléments de la liste représentée 
ci-dessus seront déclarés comme 
suit : 
TYPE PELT="ELT; 
ELT- PECOPO 
CAR:CHAR; 
PTC:PELT 
END; 


Le champ CAR contient le caractère 
et PTC contient le pointeur vers l’élé- 
ment suivant, lui-même de type ELT. 


Comme nous l'avons précisé plus 
haut. les éléments d’une liste sont 
créés de façon dynamique (allocation 
mémoire au fur et à mesure de l'exé- 
cution du programme) tandis que le 
tableau est construit lors de la compi- 
lation. 


Revenons à l'accès aux éléments de 
la liste. 1! a été dit. précédemment, 
qu'il faut connaître le premier élé- 
ment de la liste pour accéder aux 
suivants. De ce fait. un pointeur de 
début de fliste est indispensable. par 
convention, le pointeur du dernier 
élément de la liste sera NIL. Lors de 
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UNTIL CONPTEUR=0 la création d'une hste le pointeur de 
END: tête sera défini et restera inchangé 
tout au long du traitement, tandis le 

inteur de fin de liste sera modifié. 


PROCECGURE IMPRESSION: | 


VAR 1:INTEGER: n pointeur intermédiaire est néces- 
saire à l'insertion de nouveaux élé- 
BEGIN ments, de ce fait le pointeur de fin 
URITELN (TRII."LA LISTE TRIEEÉ EST +); sera déplacé en conséquence. La 
Die a TG U D0 structure de liste permet, avec sou- 

LE 


plesse, d'insérer et de supprimer des 


Hi É M at éléments. Ecrivons un programme 

URITELN CTRII UP" MO » regroupant la création d’une liste, 

WRITELN CUP*.PRENOM) : l'insertion et la suppression d’un élé- 

WRITEUN (TRI1.UP*.PRENOM ;;: ment dans celle-ci. 

WPITELN <UP°.DATE): | : 

UPITELN (TRII,6-.DATE: Ce programme listé ci-après crée une 
END liste  d'enregistrements dont les 

END: champs sont : 
e un nom 


® et un pointeur. 
il permet aussi d'insérer un élément 


(esse ire | 


e DEBUT PROGPAMM ) Rene p 
: ENT RES F js grâce à la procédure INSERER. La 
L» PRINCIPAL *) À : 
élément de la liste 
BEGIN Explication du 
REURITE £TRII,/TRII'): programme 
WRITELN &/NOMIBPE DE NOM IlIFECIEUR % 100°): NON 
FESCLN «U) ; Création 
LECTURE : Cette procédure, comme son nom 
CLASS : 


l'indique. est celle qui permet de 


[… € . Fa de K : 
RÉRT EC TRRNSS créer une liste. Au début, la liste est 


WRITELMN <TRIL): 





IMPRESSION: vide: ainsi, les pointeurs de début et 
CLOSE CTRII,LOCK) de fin de liste sont égaux. Puis on ar- 
ENS. ve dans la boucle WHILE, par la- 
PROGRAM LISTEALPHA < INPUT, QUTPUT) ; END : 
TYPE PELT=" ELEMENT ; 
ELEMENT=RECORE PROCEDURE LIRE: 
NOM:STPRING: 
PTSUIV:PELT BEGIN 
EN: | PTINT :=PTDEB: 
(+ ON COMIENCE A LIRE OÉFUIS LE OEBUT +) 
VAR PTDER,PTFIN,PTINT,POINT : PELT: <+ ON VA AFFICHER LES ELEMENTS DE LA LISTE + 
(+ PTDEB: POINTEUR DE DEBLIT DE LISTE +) (+ LE TEST D'ARRET SEPA LA VALEUR NIL +1 
(+ PTFIN: POINTEUR 0€ FIM DE LISTE +) C» OU PDINTEUR BE FIN DE LISTE +) 
C* PTINT: POINTEUR INTERMEDIAIRE +) 
(+ NECESSAIRE AU TRAITEMENT #) WHILE CPTINT-.PTSUIU €) NIL ) DO 
BEGIN 
A,B,C : STRING: WRITELN COTINT® NOM): 
X.Y : INTEGER; PTINT = ETFIrIT".PTSUIL 
EMD : 
PROCEDURE CREATION: WRITELN CPTINT-.NON 
(+ NECESSAIPE POUR 0€ DERNIER ELEMEMT +) 
BEGIN ENC: 


NEW (PTDER) : 

{+ POUR LA CPEATISN DU 1ER ELET'ENT +) 
PTFIN:=PTDER: 

te LISTE LIDE =} POINTEUR LE FIN = +) 
{+ POINTEUR BE DE2UT DE LISTE +: 
WRITELN C’EMTREZ LE 1ER NC ‘9; 
REABLN CC): 


FPOC£LOUPRE INSEFER LA : STRING) ; 


LP L : INTEGE?: 
PTIT: FEIT: 


BEGIN 
e INITIRALISATION +1) 


BTINT:=PTOES;: 
(+ LECTURE DU MGM +) 


s Liæil; 
Ve PAR CONVENTION L'ARRET SE +) L : 
IHILE 1) HD GPTINT MIL® CO 
Le FEFA FAR ENTRES OLNE CHAINE VIDE =) pe Maire 7 da DEN 
fé c Ë FIN EF . De 
GARE FARSSERRRE SSSR Re IF PTINT: NOM À THEN BEN ETaNiCi= PTINT: 
RER PTINT:=PTINT * ,PT 
WHILE *È » DO 
Le Er 
BESir EL=E Fee 
MES CFTINTOI 3; EN: 


Ce CPEATION D'UN NOUU'EL ELEMENT + 
PTINT HHOM:= C; 

C+ AFFECTATION OÙ CHenF +) 

PTFIN* ,.PT3UILU:= BTINT;: 

K+ LIAISON ALUEC ELEMENT PRECECErT +) 
PTFIN:=PTINT; 

+ POINTEUR 8E FIN DEPLACE +: 
PTFIN'.PTSUIV:= NIL: 


Ve AU 3SOFTIF DE Lé EQUCLE IL FHUT TESTEF + 
{+ LE PESULTAT DE LA PECHERCHE +) 

le SI OL + ASLEOCATION MEMOIFE POUR LE +) 

(+ NOUL'EL ELEMENT ET AFFECTATIOI OÙ CHAMP #1 


NEW (POINT) ; 
POINT .PTSUIL:=PTSNC" .PTSUILI: 


REACH (Cd: 
| À POIMT NOM: =S ; 
Ce LECTUPE Bit FELICHAIN ELEMENT +» PTANC* .PTSUI:=POINT 
END END: 
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quelle on définit et affecte les 
champs de chaque enregistrement. 
L'instruction NEWI{PTINT), va créer 
un nouvel élément de type ELE- 
MENT. Ainsi, le premier élément de 
la liste existe et peut donc être initia- 
lisé. Comme nous l'avons vu plus 
haut, un élément de la liste n'est ac- 
cessible que par son pointeur, lui- 
même contenu dans le champ poin- 
teur de l'élément précédent. Il est 
donc indispensable de relier les élé- 
ments de la liste entre eux. Cette liai- 
son est réalisée par l'instruction : 


PTFIN  PTSUIV:=PTINT,; 


Ainsi, on peut déplacer le pointeur 
de fin de liste et continuer la création 
des éléments de la liste. La saisie des 
différent noms des élément de la 
liste se terminera par l'entrée (au cla- 
vier) d'une chaîne vide. 


Lecture 


Cette procédure n'a nullement be- 
soin d'être commentée. Elle permet 
l'affichage des éléments de la liste. 


Insérer 


Pour insérer un élément dans une 
liste, il faut déterminer l'endroit de 
l'insertion. Une insertion au début ou 
en fin de liste, ne pose pas de pro- 
blème, il suffit de déplacer les poin- 
teurs de début et de fin de liste. L'’in- 
sertion en milieu de liste est plus 
délicate. Dans notre exemple, pour 
plus de facilité, le programme affiche 
les élément existants et vous de- 
mande après quel nom vous désirez 
insérer le nouveau nom. Ainsi, le 
programme recherche le nom exis- 
tant, crée un nouvel élément et met 
à jour les pointeurs. 


Insertion alphabétique 


Cette procédure n'est intéressante 
que si la liste à traiter n’a qu'un seul 
élément. Ainsi, la liste des noms sera 
tiée par ordre alphabétique. Pour 
des enregistrements  comportants 
d’autres champs, le tri pourra, bien 
sûr, s'effectuer sur un prénom, une 
date de naissance... 

La procédure recherche l'endroit de 
l'insertion, crée un nouvel élément, 
et enfin déplace les pointeurs en 
conséquence. 


Supprimer 


Cette procédure supprime un nom 
existant et déplace les pointeurs en 
conséquence. 


La structure de liste apporte un plus 
au traitement, quand les éléments de 
celle-ci doivent être rangés et préle- 
vés dans un ordre bien défini. L’utili- 
sation d’une liste plutôt que d’un ta- 
bleau se fait en fonction : 

e de la difficulté à connaître la di- 
mension du tableau: 

e des différentes modifications sus- 
ceptibles d'intervenir, quant au 
nombre d'éléments du tableau; 

e du nombre de manipulations à ef- 
fectuer sur les éléments. 5 


PROCEOURE SUPPRIMER C:STRIRIG) : 


VAR L:INTEGER; 


BEGIN 
PTINT:=PTOEB;: 
L:=®.;: 
WHILE CL<>5) AND (PTINT <> NIL) DO 
SEGIN 
IF PTINT'.N@M=A THEN L:=1 
ELSE BEGIN 
POINT:=PTIMNT: 
PTINT:=PTINT".PTSUIV 
END; 
END : 


IF L=I THEN BEGIN 
IF PTINT=PTCEB THEN PTOEB:=FTINT*.PTSUIV 
ELSE POINT: .PTSUIV:=PTINT" .PTSUIV 
END 
ELSE WRITELN (°LE NOrt ” 454," EXISTE PAS) 
ENB : 


(trs ssshsnenhenhntessrsheseesnmssinetenesshesksrsss | 


(+ DEBUT OÙ PROGRAMME PRINCIPAL #2 


Crrrirrrreertesrressrerrrrersrtrrrrtrrsssssssssssrssss) 


BEGIN 
CPREAT JON: 
LIRE: 
X:=1; 
WHILE X=1 DO 
BEGIN 
WRITELN (’0- POUR SUPPRIMER) ; 
WRITELN Ç’1- POUR INSERER °); 
WRITELN (’2- RIEN FAIRE); 
READLN CY); 
CASE Y OF 
0 : BEGIN 
WRITELN C’NEM À SUPPRIMER’); 
READLN (A) ; 
SUPPRIMER (A) : 
LIRE: 
END ; 
1 : BEGIN 
WRITELf+i (‘NOM À INSERER °); 
READLN <A) ; 
INSERER (A) ; 
LIRE; 
END; 
2 : REGIN 
WRITELN C’VOUS VOULEZ VRAIMENT RIEN FAIRE’); 
REABLAM CX) 
END 





PROCESURE INSERER (À,€ STRING): 
VAR L INTEGER: 
BEGIN 
Cx INITIALISATISN +) 
PTINT:=PTOER; 
L:=0; 
WHILE CLé>1) AND CRTINT <> MNIL) DO 
BEGIN 
IF PTINT'.NQM=S8 THEN Li=i 
ELSE FTINT:=PTINT* .PTSUIV 
END ; 


(+ AU SORTIR DE LA BOUCLE IL FAUT TESTER +) 
(x LE RESULTAT DE LA RECHERCHE +) 

C+ SI QUI : ALLOCATION MEMOIRE POUR LE #) 

(x NOUVEL ELEMENT ET AFFECTATION DU CHAMP +) 


IF L=i THEN BEGIN 
NEW CPOINT) ; 
POINT .PTSUIV:=PTINT" .PTSUIV: 
POINT * .NOM:=A ; 
PTINT-.PTSUIV:=POINT 
ENO 
ELSE WRITELF) (’LE NON ’,B,° EXISTE PAS’) 


Pons n° 17 


L'écran graphique de l'Apple Il per- 
met d'effectuer des animations de 
bonne qualité grâce à sa définition 
de 280 par 192 points. 

L'écran haute résolution se situe 
dans la zone mémoire $2000 à 
$3FFF pour la première page et 
$4000 à $5FFF pour la seconde 


Chacune des 192 lignes de l'écran 
est constituée de 40 octets consécu- 
tifs, dont 7 bits seulement sont affi- 
chés à l'écran. Le huitième bit (bit de 
poids fort ou MSB) est utilisé pour la 
sélection des couleurs. Lorsque ce bit 
est à 1, la couleur d’un point isolé en 
colonne paire sera bleue alors qu’un 
point isolé en colonne impaire appa- 
raîtra orange Lorsque le bit “cou- 
leur” est à 0, la couleur d'un point 
isolé sera violette pour les colonnes 
paires et verte pour les colonnes im- 
paires 


Les animations réalisées sur l'Apple 
peuvent être classées en deux gran- 
des catégories : 


e Celles utilisant les vecteurs 
“shapes” de l'Applesoft ou des 
procédures sirnilaires. 

© Celles utilisant les blocs d'image 


Les vecteurs shapes 


Dans ce type d'animation. les tracés 
sur l'écran sont effectués par dépla- 
cement d'un vecteur unitaire ‘allu- 
mant” ou ‘éteignant” un point de 
l'écran, c’est-à-dire mettant à 1 ou à 
O lun des 7 bits d'un octet de la 
page graphique. 

Ce type de tracé, défini dans le ma- 
nuel Applesoft. permet de modifier 
facilement l'échelle et l'orientation 
d'un dessin Ces modifications sont 
présentes en Applesoft sous les 
commandes “ROT" et SCALE” 


Par contre, l'utilisation en est assez 
lente puisque, pour traiter un octet 
de la page graphique. il convient de 
répéter 7 fois la procédure ”déplace- 
ment, mise à 0 ou à 1 d'un octet”. 


Les blocs d'image 


Le principe du bloc image est de 
sauvegarder les octets constituant un 
rectangle d'image comprenant le des- 
sin à animer. L'avantage de ce type 
d'animation réside dans sa rapidité. 
En effet. le traitement est effectué par 
octet et non par bit. ce qui permet 
de charger beaucoup plus rapide- 
ment un dessin en un endroit quel- 
conque de la page graphique 

Par contre, il est difficile, voire im- 
possible, d'effectuer des rotations et 
des agrandissements du dessin 
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Animations graphiques 


Un autre inconvénient de l'utilisation 
des blocs image est lié à l’utilisation 
de l'octet comme unité de travail Il 
s'agit des saccades obtenues dans les 
déplacements horizontaux lorsque 
l'on utilise tel quel le bloc sauve- 
gardé. Cette saccade provient du fait 
que les déplacements à droite ou à 
gauche sont effectués au pas de un 
octet soit 7 bits ou 7 points de 
l'écran. 


Un remède possible à cet inconvé- 
nient consiste en l'utilisation d'un 
programme décalant les bits d'un 
octet, ce qui permet de réduire les 
déplacements à un pas inférieur. 

Le programme peut être exécuté soit 
au moment de chaque tracé, soit 
avant le tracé, les différents blocs 
modifiés étant à leur tour sauvegar- 
dés en mémoire et utilisés au mo- 
ment convenable. 

Dans le premier cas. le programme 
de déplacement des bits dans un 
octet conduit à une augmentation du 
temps de tracé et annule une partie 
de l'avantage des blocs image 

Dans le second cas, la rapidité d'exé- 
cution est maintenue, mais il'est né- 
cessaire de disposer d'une place suf- 
fisante en mémoire pour loger les 
différents blocs modifiés 


Cette dernière technique. qui poite 
en anglais le nom de ‘pre-shifted 
shapes” est employée par le pro- 
gramme Applesoft BLOC BAS. qui 
utilise la  routne assembleur 
BLOC.OBJ {dont le code source est 
BLOC.TXT. sous Lisa 2.5) 


Afin d'utiliser ce programme. vous 
devez disposer d'un dessin sauvé 
sous forme de page graphique. et 
réalisé par HPLOT et consorts. Il 
s'agit bien là d'un dessin standard. et 
non d'une shape qui serait inexploi- 
table pour BLOC BAS 

Après avoir effacé la page HGR 1. le 
cas échéant, et chargé votre dessin 
de base, vous pourrez définir le pas 
de déplacement (1 à 6) et le nombre 
de blocs à inclure dans la séquence 
de déplacements (1 à 7). 


La taille du bloc peut être donnée 
par Joystick ou clavier, en indiquant 
simplement le point haut - gauche et 
le point bas - droit du cadre dans le- 
quel sera inscrit le motif à déplacer 
La séquence de déplacements ainsi 
constituée vous sera ensuite démon- 
trée à l'écran et vous pourrez enfin 
l'enregistrer sur disquette 


L'ensemble des blocs composant la 
séquence est sauvé à partir de 
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l'adresse $6000 selon le schéma sui- 
vant. 


e 56080 : hauteur du bloc {nombre 
de lignes) 

e $6001 : largeur du bloc (en octets, 
soit 7 points) 

e $6002: pointeurs du début du 
premier bloc 

e 56003: (adresse basse et adresse 
haute) 

e $6004: pointeurs du début du se- 
cond bloc 

e $6005: (adresse basse et adresse 
haute) 


e $600E: pointeurs du début du 
7ème bloc 

e $600F 

e 56010 et suivants : octets du bloc 
image 


Utilisation de la 
séquence 


L'utilisation de la séquence créée par 
le programme BLOCBAS est réali- 
sée par l'intermédiaire du pro- 
gramme TRACE.OPBJ, qui est en fait 
une version améliorée d'une partie 
du programme BLOC.OBJ. 


Les paramètres nécessaires à Fexécu- 
tion du tracé sont: 


e le numéro du bloc utilisé, qui doit 
être stocké en $FE (254) 

e les coordonnées du point haut et 
gauche du bloc sous la forme du 
numéro de ligne stocké en $FC 
(252 — si on utilise une valeur 
telle que la somme numéro de 
ligne et hauteur du dessin soit su- 
périeure à 192, le dessin sera 
coupé dans le bas) et le numéro 
de la colonne gauche en ottet (0 
à 39} stocké en $FD (253 — si on 
utilise une valeur inférieure à O ou 
telle que la colonne indiquée plus 
la largeur du dessin soit supérieure 
à 40, le dessin sera coupé à gau- 
che ou à droite). 


Tracé avec Joystick 


Le programme TRACE.BAS utilise la 
routine précédente pour une anima- 
tion de la séquence ROBOT BEC, 
donnée à titre d'exemple. Pour l'exé- 
cuter, il suffi de taper RUN 
TRACEBAS et d'entrer les coordon- 
nées de départ de l'animation en ré- 
ponse aux questions du programme. 
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BLOC - BAS 


LOMEM: 36864 

REM À BELLEGARDE 8/1984 

POKE 232,239: POKE 233,64: POKE 230,3 
2: HCOLOR= 1j: SCÂALE= j: ROT= 0: PR 


INT CHR&S (4);"BLOAD EeLOC.08J" 


REM  1ERE PHASE 

ONERR  GOTO 60 

HOME TEXT : VTAB ji: HTAB 13: INVERS 
E : PRINT "iERE PHASE": NORMAL 

UTAB S: PRINT " VOUS POUVEZ :" 

VTAB 8: PRINT “- 1 —- CHARGER UN DESSI 
N " 


UTAB 10: PRINT "- 2 —- CHARGER UN BLOC 


UTAB 12: PRINT “- 3 - PASSER À LA PH 
ASE SUIVANTE" 

UTAB 14: PRINT "= 4 - AFFICHER LA PA 
GE GRAPHIQUE" 

UTAB 16: PRINT “- S - EFFACER LA PAG 
E GRAPHIQUE" 

UTAB 18: PRINT "- 0 - SORTIR DU PROG 
RAMME" 

UTAB 21: INPUT * VOTRE CHOIX 
“CZ 

IF CZ < O0 OR CX > S THEN VTAB 23: P 
RINT : GOTO 140 

IF C* = 0 THEN HOME : END 

ON C* GOTO 180,250,470,430, 440 

ONERR GOTO 240 

HOME : UTAB 1: HTAB 8: PRINT "CHARGE 
MENT D'UN DESSIN“: NORMAL : VTAB 5 


INPUT "NOft DU DESSIN À CHARGER ’C’ D 
ONNE LE CATALOGUE ET RETURN‘ À 
NNULE LA PROCEDURE : ";TS$ 

IF T$ = "C" THEN PRINT CHRS (4);"C 
ATALOG": PRINT GOTO 200 

IF T5 = *" THEN 60 

PRINT CHR$& (4) ;"BLOAD "“;T$;",4#82000 
“: GOTO 50 

PRINT : INPUT * ERREUR TAPER ‘RETURN 
7 POUR CONTINUER “;T$: PRINT : GOT 
0 200 

ONERR GOTO 420 

HOME : VTAB I: HTAB 8: PRINT " CHARG 


EMENT D'UN BLOC": UTAB 5 


INPUT "NOM DE LA SEQUENCE À CHARGER 
C° DONNE LE CATALOGUE ET ‘RETURN 
* ANNULE LA PROCEDURE Re TS 

IF T$ = "C* THEN PRINT CHRS# (4);"C 
ATALOG*: PRINT : GOTO 270 

IF T$ = "" THEN 60 

PRINT CHR&S (4); "BLOAD "“;T$;",A4$6000 

ONERR GOTO 320 

PRINT :; INPUT * NUFIERO DU BLOC À AFF 
ICHER <i/73 : ":NUMZ 

PRINT : PRINT " COORDONNEES D'’AFFICH 
AGE ": HTAB 12: PRINT "CPOINT HAUT 
— GAUCHE)" 

PRINT : INPUT " X CHAUT-GAUCHE) «0,2 
VIP TR IXSC 


IF X < O OR X > 279 THEN 340 

INPUT °Y CHAUT-GAUCHE) <0,1912 : *3Y 
é 

IF Y < OU OR Y > 191 THEN 360 

POKE 250,16: POKE 251,96: POKE 252,Y 


7: POKE 2953, INT (XZ / 7): POKE 25 
4 , NUM: 

POKE - 16304,0: POKE - 16300,0: PO 
KE - 14297,0 

CALL 146559 





410 


420 


| 430 


440 


450 


| 460 


470 
480 
490 
500 
910 
520 
530 
540 
590 
560 
570 
580 


590 
600 


610 


620 


630 


640 


650 


é60 
670 


680 


690 
700 


710 


720 


730 
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UTAB 21: INPUT “TAPER ‘RETURN’ 
CONTINUER *;Tæ#&: GOTO 50 


POUR 


PRINT : INPUT " ERREUR TAPER ‘RETURN 
‘ POUR CONTINUER *;T$: PRINT : GOT 
O 270 

POKE - 16304,0: POKE - 16302,0: PO 
KE - 16297,0: POKE - 16300,0: GE 
T T$: GOTO 60 

HOME : UTAB 5: INPUT "VOULEZ-VOUS RE 
ELLEMENT EFFACER LA PAGE  GRAPHI@U 
E <O/N> ";TS 

IF T$ < > "O" THEN 60 

HGR : TEXT : GOTO 60 

REM 2EME PHASE 

ONERR GOTO 490 

HOME : UTAB 1: HTAB 13: INVERSE : PR 
INT “2EME PHASE“: NORMAL 

UTAB 5: PRINT * VOUS POUVEZ :" 

UTAB 8: PRINT "- 1 - DEFINIR LE PAS 
ET LE NOMBRE DE BLOCS DE 


LA SEQUENCE" 


UTAB 11: PRINT "- 2 - RETOURNER À LA 
1ERE PHASE" 

UTAB 14: PRINT "+ 3 - PASSER À LA 3E 
ME PHASE" 

UTAB 17: PRINT "= 0 - SORTIR DU PROG 
RAMME"* 

VTAB 20: INPUT * VOTRE CHOIX 
302 

IF CZ < O0 OR CX > 3 THEN UVTAB 20: P 
RINT : GOTO 550 

IF CZ = 0 THEN HOME : END 

ON C7 GOTO 590,50, 750 

ONERR GOTO 600 

HOME : UTAB 1: HTAB 8: INVERSE : PRI 
NT "DEFINITION DE LA SEQUENCE": NO 
RMAL 

UTAB 4: PRINT * - PAS DE LA SEQUENCE 

UTAB 6: PRINT °LE PAS DE LA SEQUENCE 


EST EGAL AU 
RE LES BLOCS" 

VTAB 9: PRINT UN PAS = 1 EST LE PLU 
S FIN MAIS LA COULEUR DU DESS 
IN EST MODIFIEE À CRAQUE TRACE (SA 
UF SI LE DESSIN EST NOIR/BLANC)IUN 
PAS = 2 PERMET DE CONSERVER LES 

COULEURS" 


UTAB 15: INPUT 
; PASX 
IF PASZ < 1 OR PASZ > 6 THEN UVTAE 1 
5: PRINT : GOTO 640 
ONERR GOTO 670 
UTAB 18: PRINT * 
E LA SEQUENCE" 
UTAB 20: PRINT “UN NOMBRE = 7 PERMET 
DE DEFINIR TOUTE LES POSSIBILIT 
ES DE DESSIN” 
UTAB 23: INPUT 
> : " ;NOMBREX 
IF NOMBREZ < 1 OR NOMBREZ > 7 THEN 
UTAB 23: PRINT : GOTO 690 
HOME : UTAB 7: PRINT "CES PARAMETRES 
NECESSITENT DE DISPOSER DE ";7 + 
INT €.9 + CPAS »* NOMBREZ) / 7); 
* POINTS GRAPHIQUES À LA DROITE DU 
UTAB 9: PRINT "DESSIN POUR PERMETTRE 
D'EFFECTUER LES  DEPLACEMENTS"* 
UTAB 12: PRINT "CETTE DISPOSITION SE 
RA VERIFIEE PAR LE PROGRAMME DANS 
LA PHASE SUIVANTE TAPER SU 
R UNE TOUCHE POUR CONTINUER ";: GE 


DEPLACEMENT ENT 


1/87 ‘17 


"PAS CHOISI 


— NOMBRE DE BLOCS D 


“NOMBRE DE BLOCS «1/7 
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ONERR GOTO 1140 
HOME : TEXT : UTAB 1: HTAS 13: INVE 
RSE : PRINT "4EME PHASE": NORMAL 

UTAB 5: PRINT “UOUS POUVEZ :* 
UTAB 8: PRINT "- 1 - CREER LA SEQUE 
NCE DEFINIE" 
UTAB 11: PRINT “- 2 - RETOURNER À L 
À 3EME PHASE" 
UTRE 14: PRINT “- O0 - SORTIR DU PRO 
GRAMME" 
UTAB 18: INPUT " VOTRE CHOIX 
*; CZ 
IF C4 < 0 OR CZ > 2 THEN UTAB 15: 
PRINT : GOTO 1190 
IF CZ = O0 THEN HOME : END 
ON C> GOTO 1230,750 
POKE - 16304,0: POKE - 16302,0: P 
OKE - 16300,0: POKE - 16297,0 
NOMERE = NOMBRE: PAS = PASZ 
IF NOMBRE = 1 THEN 1340 
FOR I = 2 TO NOMBRE 
CALL 16384 
FOR J = 1 TO PAS 
CALL 16450 
NEXT J 
POKE - 146301,0: HOME : UTAB 21: PR 
INT “BLOC NUMERO ";1;" ON CONTINUE 
<O/N> *3;: INPUT TS 
IF T# = "N" THEN 1130 
NEXT 1! 
CALL 146284 
REM SEME PHASE 
ONERR GOTO 1370 
HOME : TEXT : UTAB 1: HTAB 13: INVE 
RSE : PRINT "SEME PHASE": NORMAL 
UTAB 5: PRINT “VOUS POUVEZ :" 
UTAB 8: PRINT “- 1 - SAUVER LA SEOU 
ENCE CREEE" 
UTAS 11: PRINT “- 2 - RETOURNER A L 
A 4EME PHASE" 
UTAB 14: PRINT “- 3 - RETOURNER À L 
À 1ERE PHASE" 
UTAB 17: PRINT *- 0 - SORTIR DU PRO 
GRAMME" 
UTAS 21: INPUT * VOTRE CHOIX : 
“;CX 
IF C4 < O OR CX > 3 THEN UTAB 21: 
PRINT : GOTO 1430 
IF CX = 0 THEN HOME : END 
ON C:< GOTO 1480,1130,50 
ONERR GOTO 1550 
HOME : UTAB 1: HTAB 8: PRINT "SAUVE 
GARDE D’UNE SEQUENCE"“: UTAB 5 
INPUT “NOM DE LA SEQUENCE À SAUVER 
/C’ DONNE LE CATALOGUE ET ‘RETUR 
N’ ANNULE LA PROCEDURE : ";TS 
IF T$ = “C" THEN PRINT CHRS& (4);" 
CATALOG": PRINT : GOTO 1490 
IF TS = "* THEN 1360 
FIN = 256 x PEEK (251) + PEEK (250 
>:LO = FIN - 24384 
PRINT CHRS& (4);"BSAVE “;T#;",A#600 
0,L";LO 
GOTO 1360 
PRINT : INPUT “ ERREUR TAPER ‘RETUR 
N° POUR CONTINUER “;T#%: PRINT : GO 
TO 1490 
REM CROIX GRAPHIQUE 
X = 7 x INT (40 x € PDL (0) / 2551) 
: IF X = 280 THEN X = 279 
Y = INT (191 # € PDL (1) / 2559) 
XDRAW 1 AT X,Y: IF PEEK & - 16287) 


« 


128 THEN XORAW 1 AT X,Y: GOTO 1570 


. 
+ 


CRE 


TITLE LE 


Fi ene à 


T T£: GOTO 490 
740 REM SEME PHASE 
750 ONERR GOTO 760 
760 HOME : UTAB 1: HTAB 13: INVERSE : PR 
INT "3SEME PHASE": NORMAL 
770 UTAB 5: PRINT "VOUS POUVEZ : " 
780 VTAB 8: PRINT "- 1 - DEFINIR LE 8LOC 
DE REFERENCE DE LA SEQUEN 
CE AVEC LES PADDLES" 
790 VTAEB 11: PRINT “- 2 - DEFINIR LE 8L8 
C DE REFERENCE DE LA SEQUENCE 
AVEC LE CLAVIER TOUCHES E, 
J,K,M ET ‘RETURN’ " 
800 UTAB 15: PRINT “- 3 —- RETOURNER À LA 
2EME PHASE" 
810 UTAB 18: PRINT "- O0 - SORTIR DU PROG 
RAMME" 
820 VUTAB 22: INPUT " VOTRE CHOIX 
"C7 
830 IF C# € O0 OR CZ > 3 THEN UTAB 21: P 
RINT : GOTO 820 
840 IF C*% = O0 THEN HOME END 
850 ON CZ GOTO 860,930,470 
860 POKE - 16304,0: POKE - 16302,0: PO 
KE - 16297,0: POKE - 16300,8: HC 
OLOR= 3 
870 GOSUB 1560 
880 Xi = X:Y1 = Y 
890 IF PEEK € - 16287) > 127 THEN 890 
900 GOSUB 1560 
910 X2 = X:Y2 = Y 
920 GOTO 990 
930 POKE - 146304,0: POKE - 16392,0: PO 
KE - 146297,0: POKE - 16300,0: HC 
OLOR= 3 
930 GOSUB 1610 
950 X1 = X:Yi = Y 
960 GOSUB 1610 
970 X2 = X:Y2 = Y 
980 XDRAUW 1 AT X1,Y1: XDRAUWU 1 AT X2,Y2 
990 IF XI > X2 THEN TEMP = X1:X1 = X2:X2 
= TEMP 
1000 IF Y1 > Y2 THEN TEMP = Y1:Y1 = Y2:Y 
2 = TEMP 
1010 XDRAW 1 AT X1,Y1: XDRAW 1 AT X2,Y2 
1015 X3 = X1:Y3 = YI:X4 = X2:Y4 = Y2 
1020 XI = X1 — 3:Y1 = YI - 5:Y2 = Y2 - 1! 
1030 POKE 238, INT (.9 + (PAS x NOMBRE 
D) # 7) 
1040 POKE 250,16: POKE 251,96: POKE 252, 
Y1 + 1: POKE 253,(X1 + 1) / 7: POK 
E 254,1 
1050 POKE 24576,Y2 - Yi - 1: POKE 24577, 
INT CEX2 - X1) / 7) 
1060 CALL 16510 
1070 IF PEEK (238) « > O0 THEN POKE - 
16301,0: PRINT " ATTENTION, LA PL 
ACE PREVUE À DROITE DU DESSIN EST 
INSUFFISANTE POUR EFFECTUER LES 
DEPLACEMENTS. PRESSER UNE TOUCHE 
POUR CONTINUER "3: GET T$ 
1080 HCOLOR= 3: HPLOT X1,Y1 TO XI1,Y2 TG 
X2,Y2 TO X2,Y1 TO X1,Y1 
1090 POKE - 16301,0: HOME : UTAE 21: IN 
PUT "EST-CE QUE LE BLOC CONVIENT « 
OYND ? ";TS 
1100 HCOLOR= 0: HPLOT X1,Y1 TO X1,Y2 TO 
X2,Y2 TO X2,Y1 TO X1,Y1: DRAW 1 AT 
X3,Y3: DPAW 1 AT X4,Y4: HCOLOR= 3 
: IF T$ = "N° THEN TEXT : GOTO 75 
0 
111Q IF T$ < > "QO" THEN 1080 
1120 REM 4EHE PHASE 
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1600 RETURN 9 PRINT CHR$ (4) ;"BLOAD TRACE.OBd" 
1610 X = 140:Y = 90 10 UTAB 8: INPUT "COLONNE DE DEPART: ";C 
1620 POKE - 16368,0 OL:T = COL 
1630 XDRAW 1 AT X,Y 20 UTAB 12: INPUT "LIGNE DE DEPART : *; 
1640 XDRAW 1 AT X,Y: IF PEEK { — 16384) L1G 
< 141 THEN 1630 30 VTAB 16: INPUT "BLOC DE DEPART CAALTE 
1650 IF PEEK { - 16384) = 20t THEN Y = BLO 
Y — 1: 1F Y < O0 THEN Y = 0 49 HGR : POKE - 146302,0 
1660 IF PEEK € - 16384) = 205 THEN Y = 50 POKE 2952,LIG: POKE 253,7: POKE 254,BL 
Y + 12 IF Y > 191 THEN Y = 191 0 
1670 IF PEEK € - 16384) = 202 THEN X = 60 CALL 7936 
X — 7: IF X < O0 THEN X = 0 70 X = PDL (0O):Y = PDL <1) 
1680 1F PEEK € - 16384) = 203 THEN X = 80 IF X > 80 AND X < 150 THEN 150 
X + 7: IF X > 279 THEN X = 279 90 IF X > 159 THEN 120 
1690 IF PEEK € —- 14384) = 141 THEN XDR 100 BLO = BLO - 1: IF BLO < 1 THEN COL = 
AW { AT X,Y: RETURN COL - 2:BLO = 7:T = COL 
1700 GOTO 1620 110 GOTO 1 30 
120 BLO = BLO + 1: IF BLO > 7 THEN COL = 
COL + 2:BLO = 1:T = COL 
130 1F COL > 128 THEN COL = 128 
JLOAD TRACE.BAS 140 IF COL < Ü THEN T = 256 + COL 
150 IF Y > 80 ANS Y € 160 THEN 200 
{ REM TRACE.BAS 160 IF Y > 159 THEN 190 
2 REM À. BELLEGARDE 8/84 179 LIG = LIG - 2: IF LIG < O THEN LIG = 
3 HOME : TEXT : UTAB 1: HTAB 8: INVERSE 0 
: PRINT "ANIMATION AVEC JOYSTICK": 180 GOTO 50 
NORMAL 190 LIG = LIG + 2: IF LIG > 255 THEN LIG 
7 REM CHARGEMENT DE LA SEQUENCE = 255 
8 PRINT CHR$ (4);"BLOAD ROBOT.BLC" 200 GOTO 50 
1 TTL "BLOC.TXT" 33 LDA HSTOCK 
2 * 34 STA HAUT ,X 
3 Æ XX Hd HN NE 2 EX Ne Ne A A 6 DE DE 6 26 6 DE JE 26 26 6 35 INC NUMSHA 
4 * * 36 LDA HAUT 
5 + À. BELLEGARDE 8/84 * 37 STA TEMP3 
é * * 38 LDA LIGHAUT 
F6 Je à 6 6 DEN 26 26 JE JE De Xe DE De 6e 26 6 DE JE DE 26 6 6 XXE Xe XXE 39 STA TEMP2 
8 * 40 LOOP! LDA TEMP2 
9 ORG $4000 41 LOX ##00 
10 HBASL EPZ $2é6 42 LDY 4500 
11 HBASH EPZ 327 43 JSR HPOSN 
12 TEMPI EP2 $EB :VARIAB 44 LOY COLGAU 
LE TEMPORAIRE 45 LDX H$00 
13 TEMP2 EPZ $EC 44 LDA LARGE 
14 TEIMP3 EPZ +ED 47 STA TEMP! 
15 TEMP4 EPZ $EE 48 LOOP2 LDA CHBASL) ,Y 
1$ LSTOCK EPZ +FA ;ADRESS 49 STA (LSTOCK,X) 
E BASSE DE STOCKAGE DU BLOC so INY 
17 HSTOCK EPZ $FB ;ADRESS 5! INC LSTOCK 
E HAUTE DE STOCKAGE DU BLOC 52 8NE SUITE 
18 LIGHAUT EPZ $FC : LIGNE 53 INC HSTOCK 
HAUTE DU DESSIN 54 SUITE DEC TEMPI 
19 COLGAU EP2Z $FD ; COLONN 55 S8NE LOOP2 
E GAUCHE DU DESSIN 56 INC TEMP2 
20 NUMSHA EP2 $FE ; NUMERO 5? DEC TEMP3 
DU BLOC UTILISE 59 BNE LOOP1! 
21 HAUT EQU $46000 ; HAUTEU 59 RTS 
R DU BLOC 60 + 
22 LARGE EQGU $4001 :LARGEU 61 * ROL DU BLOC IMAGE 
R DU BLOC 62 + 
23 HPOSNI EQU $Fd4i1 63 LDA HAUT 
24 * 64 STA TEMP3 
25 * SAUVEGARDE DES OCTETS SU BLOC IMAG 65 LOA LI GHAUT 
E éé STA TEMP2 
26 >» 67 LOOPS LDA TEMP2 
27 LDA NUMSHA 69 LDX H$00 
28 ASL 69 LODY ##00 
29 TAX 70 JSR HPOSN 
30 LDA LSTOCK 71 LDX LARGE 
31 STA HAUT ,X 72 LDY COLGAU 
32 INX 73 CLC 


A EEE 
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74 LOOP3 


83 LO0P4 


88 SUITE2 


9é *# 


LA 
ROL 
ROL 
STA 
INY 
DEX 
BNE LOOP3 
LDX LARGE 
LOY COLGAU 
CLC 
LDA 
ROR 
RCC SUITE2 
ORA #580 

STA CHBASL) ,Y 
INY 

DEX 

SNE LOOP4 

INC TEMP2 

DEC TEMP3 

ENE LOOPS 

RTS 


CHBASL) ,Y 


CHBASL) ,Y 


CHBASL) ,Y 


97 *x POSSIBILITE OE OEPLACER LE BLOC iM 


AGE 
98 + 


103 LOOP?7 


107 LOOPé4 


121 RETOUR 


1:23:5% 
124 x DESSIN 
125 + 


128 LOOPS& 
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LDA COLGAU 
ADC LARGE 
STA TEMRI 
DEC TEMPI 
LDA HAUT 
STA TEMP3 
LOA LIGHAUT 
STA TEMP2 
LOA TEMP2 
LOX #&50U 
LOY ##00 
JSR HPDSN 
LOY TEMPI 
LDA CHBASL) ,Y 
BNE RETOUR 
INC TEMP2 
DEC TEMP2R 
8NE LOOPS 
DEC TEFMIPI 
DEC TEMP4 
ENE LOOP7 
RTS 

INC TEFIP4 
RTS 


DU BLOC IMAGE 


LDA NUMSHA 
ASL 

TAX 

LDA HAUT ,X 
STA LSTQCK 
INIX 

LDA HAUT, X 
STA HSTOCK 
LDA HAUT 
STA TEMP3 
LOA LI SHAUT 
STA TEMP2 
LOA TEMP2 
LDX #568 
LDY #50 
J5R HPOSN 
LDY COLGAU 
LOX H#500 
LDA LARGE 
STA TEMPI 





146 LOOP9 LDA (LSTOCK,X) 

147 STA CHBASL) ,Y 

148 INY 

149 INC LSTOCK 

150 ENE SUITEA4 

151 INC HSTOCK 

152 SUITE4 DEC TEMPI 

153 BNE LOOP9 

154 INC TEMP2 

iss DEC TEMP3 

156 ENE LOOPS 

15? RTS 

158 + 

159 * CROIX GRAPHIQUE 

160 x 

161 HEX 0100040024202096186F492 

000 

162 END 
1 ORG $1F08 

2 HN E EN NE XXE DE DE D DE EE XXE XX XX XX 
3 * * 
4 » A. BELLEGARDE 8/84 > 
SX # 
É EXSLHHMNMH HER E 
7? %x 
8 HBASL EPZ #26 TRACE 
9 HBASH EPZ #27 

10 TEMFI EFZ $EB 

11 TEMP2 EPZ #EC 

12 TEMP3 EP2 $E0 

13 TEMP4 EPZ $EE 

14 LSTOCK EPZ #FA 

15 HSTOCK  EP2Z $FB 

16 LIGHAUT EPZ $FC 

17 COLGAU  EP2Z $FD 

18 NUMSHA  EPZ $FE 

19 HAUT EQU $6000 

20 LARGE EQU $6001 

21 HPOSN EQU $F411 

22 * 

23 * TRACE DU BLOC 

24 x 

25 TRACE LDA NUMSHA 

2 ASL 

22 TAX 

28 LBA HAUT ,X 

2 STA LSTOCK 

3 INX 

31 LSA HAUT ,X 

32 STA HSTOCK 

33 LDA HAUT 

34 STA TEMP3 

35 LDA LIGHAUT 

36 STA TEMP2 

37 Loop! LBA COLGAU 

33 STA TEMP4 

39 LBA TEMP2 

40 BPL CONT 

41 CMP #19i 

2 BPL BASPAGE 

43 CONT LOX ##00 

44 LDY #$00 

45 JSR HPOSN 

4é LBA LARGE 

47 STA TEMPI 

438 LOOP2 LDY TEMP4 

4? EMI COUPE 

50 CPY H$28 

51 RPL COUPE 


h + 








22 





92 LDX 4#$509 59 SUITE DEC TEMP1] 
93 LDA (LSTOCK,X) 60 BNE LOOP2 
54 STA CHBASL) ,Y 61 INC TEMP2 
55 COUPE INC TEMP4 62 DEC TEMP3 
Sé INC ESTOCK $3 BNE LOOPI 
37 BNE SUITE 64 BASPAGE RTS 
58 INC HSTOCK ss END 
Récapitulation 40C0- 60 85 ED AS FC 85 EC AS 6010- 00 00 00 00 00 00 00 00 
BLOC. OBJ 40C8- EC A2 00 A0 00 29 11 F4 6018- 00 00 00 00 00 00 00 00 
. 40D0- A+ FD A2 00 AD 01 60 85 6020- 00 00 00 00 00 00 00 7C 
*4000 . 40FE 4008- EB A1 FA 91 26 C8 Eé FA 6028- 1F 00 00 00 00 00 04 10 
40€0- DO 02 Eé FB Cé EB DO F1 6030- 00 00 00 00 00 07 70 00 
4000- AS FE 0A AA AS FA 9D 00 40E9- Es EC Cé ED DO D9 60 01 6038- 00 00 00 00 01 40 00 00 
4008- 60 EB AS F8 9D 00 60 Eé 40F0- 00 04 00 24 20 29 96 18 6040- 00 00 00 01 40 00 00 00 
4010- FE AD 00 60 85 ED AS FC 40F8- $F 47 20 00 00 00 00 6048- 00 00 19 4C 00 00 00 00 
4018- 85 EC AS EC A2 00 AO 00 NET 6050- 00 3D SE 00 00 00 00 
4020- 20 11 F4 A4 FD A2 00 AD *1F00.1FS 6058- 19 4C 06 00 00 00 30 01 
4028- 01 60 83 EB Bt 26 81 FA TRACE. OBJ 6060- 40 06 00 00 00 30 05 50 
4030- CB Eé FA D0 02 Eé FR Cé 1F00- AS FE 0A AA BD 00 60 85 6068- 0 00 00 00 30 70 SF 06 
4038- EB D0 Ft Eé EC Cé ED D0 1F08— FA ES BD 00 60 85 F8 AD 6070- 00 00 00 30 01 40 0 00 
4040- D9 60 AD 00 60 85 ED AS IF10- 00 60 85 ED AS FC 85 EC 6078- 00 00 30 01 40 06 00 00 
3048- FC 85 EC AS EC A2 00 A0 1F18- AS FD 85 £E AS EC 10 04 6080- 00 28 01 40 0é 00 00 00 
4050- 00 20 11 F4 ÀE 01 60 A4 1F20- C9 BF 10 2C A2 00 A0 00 6089- 30 01 40 06 00 00 00 30 
4053- FO 19 B1 26 2A 2A 91 26 1F28- 20 11 F4 AD 01 60 85 E8 6090- 01 40 06 00 00 00 3C 0t 
4060- C8 CA D0 Fé AE 01 60 A4 1F30- A9 €E 30 OA CO 28 10 0é 609a- 40 tE 00 00 00 04 O1 40 
4068- FD 18 81 24 64 90 02 09 1F38- A2 00 AI FA 91 26 Eé EE 600- 10 00 00 00 04 01 40 10 
4070- 60 91 26 C8 CA DO F2 Eé 1F40- Eé FA 00 02 Eé F8 Cé EB 60A8- 00 00 00 00 01 40 00 00 
4078- EC Cé ED D0 CE 60 AS FD IAB LDONES SM ESLIEC, RACE LDOTCE $080- 00 00 70 01 40 07 00 00 
4080- 60 01 60 85 EB Cé EB AD 1F50- 60 6088- 00 10 00 00 04 00 00 00 
4088- 00 60 85 ED A5 FC 85 EC 60C0- 70 7F 7F 07 00 O0 sa co 
4090- AS EC A2 00 A0 00 20 it 60C3- 07 70 00 00 00 00 4 
4098- F4 A4 EB &B1 2$ DO 0D Eé ROBOT. BLOC 60D0- 02 01 00 00 00 20 19 04 
40A0- EC Cé ED DO €8 CS EB Cé *6000.60€F 6008- 02 00 00 00 70 3F 7E 07 
40A8- EE DO DC 50 Eé EE 60 AS 60E0- 00 00 00 00 00 00 00 00 
4080- FE OA AA BD 00 60 85 FA 6000- 20 07 10 60 FO 60 DO 61 60E8- 00 00 00 00 00 00 00 00 
4089- E8 8D 00 60 85 FB AD 00 6008- B0 62 90 63 70 64 50 65 


Si programmer un ordina- 
teur est devenu pour 


vous un loisir, un plaisir. une 
passion, sachez que LIST a 
été créé pour vous. LIST 
vous aide à tirer davantage 
de votre matériel, à vous 
perfec ionner dansla con- 
æption des programmes 
qui “tourneront” sur votre 
machine. LIST vous initie 
aux langages informati- 
ques et sélectionne les 
meilfeurs livres pour 
progresser. LIST vous 
infomme de l'actualité et 
vous fournit trucs.as- 
tuces et idées pour 

mieux programmer 

VOTRE CADEAU 

Le TRANS'BASIC 
table de conversion 
des instructions BASIC 
{24 pages - format 11,5x 25cm) 


5, place du Colonel-Fabien - 75491 Parts Cedex 10 
Nom: = Prénom 








Ville: __ RAIN TT 
Code postal LLLI 1] Paye: 


Veufilaz m'abonner pour 10 numéros au Prix avantageux de 160F * au lieu de 200F et m'adres- 
saren cadeau LE TR ANSBASIC. Je fais ainsi une économie de 40F surle prix de vente au nu’ 
méro. Jej ons mon rêgtement Indispensable {bellé à l’ordre de LIST. “Tarif France - autres 
Says: nous consulter 











BASICIUM, 


Gérard Miche! 


IS BOSIC CAIN 
Apple 1t+, //a 


Cet Utilitaire voUS permet de : 


CO Gérer des masques ou écrans 40 ou 80 
colonnes. Ces écrans, définis lors de la 
programmation, s'affichent par la simple 
commande ÎjA. 


C Saisir toutes les variables d'Un écron en 
Une seule commande il en contrêlant le type et 
lo longueur. 

O Decopier l'écran 40 ou 80 colonnes sur 
lmorimantepor }H. 

O Fare Un nettoyage mémoire {garvage 
collection) très rapide par F. 

[ Gérer des messages. la réponse étant 
contrôlée 

[] Mais aussi. ne saisir que l'Une des variables 


offectées à Un écran. les afficher. les effacer. 


etc. 


Tous les fichiers source sant sur la disquette. 
(Exeme£le de gémonstrstion dans le Pons 173) 


Disquette et documentation : 350,00 F TIC frenco 
(bon de commande page 74). 


A EE ENERENEENEEMEREEE 0 
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Pour mettre un terme à cette série, 
dont l'univers impitoyable vous aura 
sans nul doute fascinés, nous vous 
proposons un dernier exercice de 
style. Une fois encore, son intérêt 
pratique vous paraîtra quelque peu 
limité, hormis certains cas d’applica- 
tion très spécifiques, mais il nous 
fournira l’occasion d'une large réca- 
pitulation. En particulier, nous appro- 
fondirons les possibilités d'interaction 
entre le Basic Applesoft et les routi- 
nes en langage machine que vous 
pourriez juger bon de lui adjoindre 
dans le cadre de vos travaux de pro- 
grammation. 


Pour préciser notre sujet, rappelons 
tout d'abord que l’on conseille sou- 
vent aux programmeurs en Applesoft 
de placer en début de programme 
toutes les sous-routines faisant l’objet 
d'appels fréquents, afin de gagner en 
vitesse lors de l'exécution. I n’est pas 
rare non plus de justifier ce conseil 
en expliquant que, lorsque l'Apple- 
soft rencontre une instruction de 
branchement du type GOTO 100, 
ou GOSUB 50, il recherche la ligne 
sur laquelle doit s'effectuer le bran- 
chement en explorant le programme 
à partir du début jusqu’à ce qu'il ait 
trouvé le bon numéro de ligne. 

En fait, si le conseil est généralement 
bon, l'explication correspondante 
n'est qu'à moitié correcte. En effet, 
les concepteurs de l’'Applesoft n'ont 
pas oublié de réfléchir en écrivant 
leur Basic. Ainsi, la recherche de 
ligne ne part du début du pro- 
gamme que si le poids fort du nu- 
méro de la ligne où l’on doit se bran- 
cher (après conversion en 
hexadécimal, bien sûr) est inférieur 
ou égal au poids fort du numéro de 
la ligne dans laquelle on rencontre 
l'instruction de branchement (nu- 
méro stocké en $75-$76 par l'inter- 
préteur). Dans le cas contraire, cette 
recherche part de la ligne suivant 
celle en cours d'exécution et se dirige 
vers la fin du programme. 


Il en résulte que la structure sui- 
vante : 

10 à 1000 : 500 lignes de Basic 
1010 GOSUB 1030 

1020 GOSUB 1030 : GOTO 1040 
1030 : traitement quelconque 

1040 : suite du programme... 


sera plus efficace que celle-ci : 

10 à 100: 10 lignes de Basic 

110 : traitement quelconque 

120 à 1000 : 489 lignes de BASIC 
1010 GOSUB 110 

1020 GOSUB 110 


1030 suite du programme. 
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Pour examiner les choses plus en dé- 
tails, reportez-vous plus loin à lana- 
lyse de la routine de traitement des 
instructions GOTO, qui débute en 
$D93E. Cette routine est toujours 
utilisée, directement ou non, dès 
qu'un branchement doit être effec- 
tué, que ce soit par GOTO, GOSUB, 
ONERR ou ON. 


Il est bien évident que ce problème 
de structure ne pèse significativement 
sur les performances d’un pro- 
gramme que lorsque les branche- 
ments s'avèrent particulièrement 
nombreux et que la taille de l'ensem- 
ble est importante. Dans ce cas, il 
devient rentable de se préoccuper de 
la position des différentes routines en 
fonction de leur fréquence d'appel et 
des lignes à partir desquelles elles 
sont appelées. 


Par ailleurs, on pourrait s'affranchir 
de ces problèmes de structure si l’on 
stockait dans le programme l'adresse 
de la ligne à laquelle on doit se bran- 
cher et non son numéro. 

Ainsi, GOSUB 1000 est mémorisé 
sous la forme : 

B0 31 303030 

Si l'on sait que l'adresse de la ligne 
1000 dans la zone du programme est 
$20B2, si l’on peut alors stocker 
l'instruction sous la forme : 

B0 B2 20 

et faire en sorte que l'interprétation 
de GOSUB (token BO) puisse utiliser 
B2 20 pour se brancher directement 
en $20B2, peu importent alors la 
structure du programme et les en- 
droits d’où l'on appelle cette ligne 
1000. La phase de recherche des 
lignes étant dissociée de l'exécution 
du programme, les branchements se 
feront toujours à la même vitesse, 
quelles que soient les positions relati- 
ves des point de départ et d'arrivée. 


C'est à ce type de manipulation que 
nous allons donc nous attaquer, ce 
qui suppose deux catégories de trai- 
tements : 

— Remplacement dans un pro- 
gramme des numéros de lignes de 
branchement par leurs adresses ef- 
fectives. 

— Adaptation de l'interpréteur Apple- 
soft pour que les instructions de 
branchement puissent utiliser directe- 
ment ces adresses. 


Calcul des 
adresses 
Notre programme Applesoft étant 


chargé en mémoire, il nous faut dis- 
poser d’une routine qui puisse l'ex- 


Initiation à l’assembleur (7) 


Gérard Michel 


plorer du début à la fin, repérer les 
instructions de branchement, calculer 
les adresses des lignes correspondan- 
tes et remplacer ensuite les numéros 
de ces lignes par les adresses ainsi 
obtenues. 


Pour nous simplifier la tâche, nous 
utiliserons la routine de lApplesoft 
qui traite le GOTO pour le calcul des 
adresses, Nous en ferons donc une 
brève analyse au moven des deux 
listes ci-dessous. 


*D93ELL 

D93E- 29 0C DA JSR  $0A0C 
D941- 20 A6 D9 JSR $09A6 
D944- AS 76 LDA  s76 
D946- C5 51 CMP s51 
0948- 60 06 ECS 50933 
094n- 98 TYA 

D?48- 38 SEC 

D94C- 65 88 ADC  s88 
D94E- A6 89 LDX s67 
0950- 90 07 BCC S095? 
0952- Ee IRD 

0953-  BÔ 04 ecs 50959 
D955- A5 67 LDA #67 
D957- A6 68 LDX  S68 
0959- 20 IE Dé JSR  S$D6éIE 
D95C- 90 1E BCC SD97C 
09SE- AS 9B LOA s?e 
D960- ES 01 sBC és! 
D962- 65 88 STA  se8 
0964- AS 9C LORn  S9C 
D9éé-  E9 00 SBC £$00 
0968- 85 89 STA 389 
D9éA- 60 RTS 

#*D6é1ELL 

DélE- AG 01 LDY £S01 
D620- 8S 98 STA  s9B 
D622- Bé 9C STX  s9C 
Dé24- Bi 98 LOA  (598),Y 
Dé26- FO 1F BEQ $0647 
Dé28- Ce INY 

D629- Ce INY 

Dé2A- AS 51 LDA 351 
Dé2C- D! 98 CMP (898) ,Y 
D62E- 90 18 BCC 40648 
0630- FO 03 BEQ 40635 
D632- 98 DEY 

D633- DO 09 BNE  $063E 
D635- A5 50 LDA #50 
D437- 68 DEY 

D638-  D1 98 CMP (S9B),v 
D63A- 90 0€ BCC  S$0648 
063C- FO GA BEQ 0648 
D63E- 88 DEY 

D63F- 81 98 LDA  <89B8) ,Y 
Dé4i- A TAX 

Dé42- 88 DEY 

D643- Bi 98 LDA  (8598),Y 
Dé45-  BO 07 BCS  S$D61E 
Dé47- 18 CLC 

D648- 48 RTS 


— Lorsqu'on arrive en $D93E, $B8- 
$B9 pointe sur le premier octet du 
numéro de la ligne de branchement, 
qui est également contenu dans l’ac- 
cumulateur À (voir l'Initiation à l’as- 
sembleur du Pom's 16). 

La routine en $DAOC convertit ce 
numéro de ligne en hexadécimal et 
le range en $50-$51 (poids faible / 
poids fort). 


— Âu retour de la routine en $D9A6, 
Y contient le nombre d'octets restant 
dans la ligne courante après celui 


rer as + 
LR AL à Ai 


Ir SSRERT 


SR ve EE 
sis "es. 


2 


23 


pointé par $B8-$B9 (0 de fin de 
ligne compris). 

— On compare ensuite le poids fort 
du numéro de ligne courante (en 
$76) avec celui du numéro de la 
ligne de branchement {en $51t). Si le 
premier est supérieur ou égal au se- 
cond (test BCS positif), la recherche 
partira du début du programme. 


— Sile contenu de $51 est supérieur 
à celui de $76, on calcule À = ($B8) 
+ Ÿ + 1 (notez le SEC avant ADC 
$B8), et on met dans X la valeur de 
$B9, éventuellement incrémentée de 
1 si une retenue s’est dégagée du 
calcul de À On a donc en À et X 
l'adresse du début de fa ligne sui- 
vante (poids faible / poids fort} et on 
passe en $D959. 

Dans le cas contraire, on met dans À 
et X l'adresse du début du pro- 
gramme, pointée par $67-$68. 


— Sous-routine en $D6IE : 

e $9B-$9C contiendra toujours 
l'adresse de début de la ligne en 
cours d'examen. Lorsqu'on vient 
de $D959, on initialise $9B-$9C à 
l'adresse de la ligne marquant le 
début de la recherche (début du 
programme, ou ligne suivant celle 
qui contient l'instruction de bran- 
chement). 

e En $D624, on récupère dans À le 
poids fort de l'adresse de la ligne 
suivant celle qu'on analyse. Si 


cette valeur est nulle, on est en fin 
de programme et on saute en 
$D647, où le CLC (C=0) permet- 
tra ensuite de générer un message 
d'erreur (numéro de ligne inexis- 
tant). 

Sinon, on compare le poids fort 
du numéro de ligne cherché à 
celui du numéro de la ligne en 
cours, 

Si le test BCC de $D62E est posi- 
tif, c'est qu'il y a erreur quelque 
part, puisque le mode de choix du 
début de la recherche fait que la 
valeur de $51 est normalement 
supérieure ou égale au poids fort 
du numéro de la première ligne 
examinée, et a fortiori des lignes 
suivantes. 

Si c'est le même poids fort, on va 
comparer les poids faibles en 
$D635. Sinon, on va passer à la 
ligne suivante en $D63E. 

En $D635, même processus pour 
les poids faibles, avec erreur éga- 
lement si le test BCC de $D63A 
est positif. 

Si le test BEQ de $D63C est posi- 
tif, on a trouvé notre ligne et son 
adresse de début est en $9B-$9C. 
Sinon, passage à la ligne suivante. 
On va mettre en À et X l'adresse 
de la ligne suivante et reprendre la 
routine au début. Le test BCS est 
obligatoirement positif, puisque 
l'on vient de passer sans succès 


un BCC dans le cas des poids 
forts {$D62F) comme dans celui 
des poids faibles ($D63A). 


— Au retour de $D6IE, en $D95C. 
C=0 signale une erreur et on saute 
au traitement correspondant. 

Sinon, on met en $B8-$B9 l'adresse 
de ia ligne trouvée et contenue en 
$9B-$9C, mais diminuée de 1 afin 
de respecter les règles d'analyse de 


ASS Applesoft (vois Pom's 
16). 


En résumé, la réalisation d'un bran- 

chement en Applesoit se traduit par : 

e Recherche de la ligne dont le nu- 
méro est donné après l'instruction 
de branchement. 

e Transfert de l'adresse de cette 
ligne dans la zone de programme 
dans le pointeur de programme 
$B8-$B9, afin que l'analyse de 
l'interpréteur reparte ensuite sur 
cette ligne (après le RTS de 
$D96A. on anivera sur le JMP 
$D7D2 de $D823). 


Maintenant que nous savons 
comment fonctionne la routine de 
calcul d'adresses, examinons la rou- 
tine que nous utiliserons pour lex- 
ploiter. 

Le programme Applesoft concerné 
étant chargé en mémoire, nous lan- 
cerons l'exécution de la routine dont 
le source est listé ci-dessous : 


Source Big Mac 29 LDA $B8 dada $BB 
-$B9 AU DEBUT DE L’INSTRUCT 
Programme COMPG2.S 30 CLC E 
À 3636263636 363626 36 DE ED DE HE DE DE DE DE DE DE DE DE DE DE DE DE DE JE DE DE DEN DE 31 ADC £3 
2 * * 32 STA #88 
3 *  REMPLACE LES NO DE LIGNES  * 33 BCC S4 
4 x DES BRANCHEMENTS PAR LES * 34 INC $B9 
5 * ADRESSES DE CES LIGNES * 35 S4 JSR $B1 ; LECTURE C 
6 * CODE = CO*14PG2 * ARACTERE DU PROGRAMME 
7 # * 36 BNE Si 
GB x 2 26 x 2 26 36 6 DE JE DE DE DE DE JE DE DE DE JE DE DE JE DE DE 6 6 26 DE JE 6 26 26 € 37 S7 CMP £$3A ; Hein D 
PER 3B BEQ Sd ; LECTURE C 
10 ORG +300 ARACTERE SUIVANT 
11 LDA #$67 3INITIALIS 39 LDA 5$8 
ATION POINTEUR DE PROGRAMME 40 STA $B8 ; PASSE A L 
12 STA S$BB A LIGNE SUIVANTE 
13 LDA $6B 41 LDA $9 
14 STA $B9 42 STA +89 
15 S2 LOY £1 ;POIDS FOR 43 BNE S2 
T ADRESSE LIGNE SUIVANTE = 0 44 si CMP  £S$AB ;GOTO ? 
16 LDA ($BB),Y ; IMPLIQUE 45 BEQ S3 
FIN DU PROGRAMME 46 CMP  £$B0 ;60SUB ? 
17 BNE SO 47 BEA 53 
18 JMP  #$D43C 48 CMP  £$C4 ;THEN ? 
19 So STA 59 ; SAUVEGARD 49 BNE Sq 
E ADRESSE LIGNE SUIVANTE 50 LOY £1 
20 DEY 51 LDA ($88),Y 
2i LDA ($B8),Y 52 CMP  £83A 
22 STA 58 53 8cS sd ;CE N’EST 
23 LOY £2 PAS UN NO DE LIGNE QUI SUIT "THEN* 
24 LDA ($B8),Y 3 MAJ NUMER 54 DEY 
O DE LIGNE COURANTE 55 LDA £$AB 
25 STA 575 Sé STA (5B8),Y ; REMPLACE 
26 INY "THEN" PAR “GOTO* 
27 LDA ($B8),Y 57 53 JSR $B1 ; LECTURE 
28 STA $76 ER CHIFFRE DU NO DE LIGNE 


ARE 
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58 LDY $88 3 SAUVEGARD 73 LDA $é 
E POINTEUR DE PROGRAMME 74 STA $B8 ; RESTAURE 

59 STY $é POINTEUR DE PROGRAMME 

60 LDY $B9 75 LDA $7 

ét STY S$7 76 STA $B9 

62 CMP  £$30 30 "BOUCHE 77 INC $B8 1$58B-$B9 P 
—TROU*" ? OINTE SUR 2EME OCTET ADRESSE LIGNE 

63 BNE SS 78 BNE Sé 

64 JSR $B1 3; ER CHIFF 79 INC $89 
RE SIGNIFICATIF 80. Sé LDY £0 

és SS JSR $B7 ; RECHARGE 81 S8 JSR $B1 LECTURE 0 
ACCURAULATEUR CTETS SUIVANTS ADRESSE LIGNE 

éé JSR $D93E ; ROUTINE * 82 BEG S7 ;FIN INSTR 
GOTO*“ DE L'’APPLESOFT UCTION ? 

67 LDY £0 83 8CcS S3 3FIN DE "@Q 

68 LDA +$B8 UEUE® DE NO DE LIGNE 

69 STA «$6) ,Y ; REMPLACE 84 LDA £$3A ; REMPLACE 
NO DE LIGNE PAR SON ADRESSE CHIFFRE PAR °:" 

70 INY 85 STA ($B8),Y 

71 LDA $B9 86 BNE SB 

72 STA ($6) ,Y 


— Lignes 11 à 14: initialisation du 
pointeur $B8-$B9 à l'adresse de 
début du programme. 

— Lignes 15 à 18 : si le poids fort de 
l'adresse de ia ligne suivante est nul, 
onest en fin de programme et on re- 
vient au Basic par un JMP $D43C. 

— Lignes 19 à 22. on sauve 
 : de la ligne suivante en $8- 
— Lignes 23 à 28: on met le nu- 
méro de la ligne en cours de traite- 
ment en $75-$76. 

— Lignes 29 à 34: on met en $B8- 
$B9 l'adresse du premier octet de la 
première instruction de la ligne, dimi- 
nuée de 1 (à 3 octets du début de la 
ligne). 

— Lignes 35 et 36: lecture d'un ca- 
ractère de la ligne. Si ce n'est ni O ni 
7:?, on passe en S1. 

— Lignes 37 et 38: si c’est 
(#$3A), on passe au caractère sui- 
vant. 

— Lignes 39 à 43 : on est en fin de 
ligne (A=0) et on passe à la sui- 
vante. 

— Lignes 44 à 47 si c'est le token 
de GOTO (#$AB) ou celui de 
GOSUB (#$B0), on va en S. 

— Lignes 48 et 49: si ce n'est pas 
THEN ({#$C4). on retourne en Sd. 

— Lignes 50 à 53: si l'octet qui suit 
le token de THEN n'est pas inférieur 
à #$3A. c'est qu'il ne s'agit pas du 
début d'un numéro de ligne (instruc- 
tions du type THEN CC=0) Dans 
ce cas, on retourne en S4. 

— Lignes 54 à 56: sil s'agit bien 
d'un THEN suivi d'un branchement. 
on remplace le token de THEN par 
celui de GOTO. afin de n'avoir en- 
suite qu'un cas à examiner dans la 
modification de l'interpréteur. Consé- 
quence : n'utilisez pas d'instructions 
redondantes “THEN GOTO* dans 
vos programmes ‘source, Car 
"GOTO GOTO” serait plus tard re- 
jeté par l'interpréteur. 
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— Lignes 57 à 61: lecture de l'octet 
qui suit le token de l'instruction de 
branchement et sauvegarde de 
l'adresse de cet octet en $6-$7. 

— Lignes 62 à 64: l'adresse d'une 
ligne occupe toujours deux octets, 
alors que le numéro de cette ligne. 
stocké en ASCII peut n'en prendre 
qu'un s'il est inférieur à 10. Afin de 
ne pas avoir à décaler le programme 
en mémoire dans ce cas, nous adop- 
terons comme convention que, dans 
le “source” Applesoft, les numéros 
de ligne inférieurs à 10 doivent être 
précédés de O On écrira ainsi 
"GOTO 05" et non ‘"GOTO 5” 
Cette soluton n’est certes pas la plus 
élégante, mais elle simplifie et accé- 
lère la routine de calcul d'adresses. 
On regarde donc ici si le premier 
octet du numéro de ligne est un O 
(#$30), auquel cas on doit lire le 
premier octet significatif de ce nu- 
méro par un autre JSR $B1. 

— Lignes 65 et 66: relecture du pre- 
mier octet du numéro de ligne par 
JSR $B7, afin de s'assurer qu'il est 
bien chargé dans À et que les indica- 
teurs du registre d'état sont correcte- 
ment positionnés. puis appel de la 
routine  GOTO qui va calculer 
l'adresse de la ligne. 

— Lignes 67 à 72. l'adresse de la 
ligne est en $B8-$B9. On la remet à 
la place des deux premiers octets du 
numéro de ligne, dont l'adresse est 
toujours contenue en $6-$7. On 
trouve donc maintenant derrière le 
token de l'instruction de branche- 
ment, l'adresse de la ligne sur la- 
quelle doit se faire ledit branche- 
ment. 

— Lignes 73 à 76: restauration du 
pointeur $B8-$B9 à l'adresse du pre- 
mier octet qui suit le token. 

— Lignes 77 à 81 : lecture du pre- 
mier octet qui suit l'adresse de la 
ligne que l'on vient de stocker dans 
le programme. 


— Ligne 82: si l'octet en question 
est O0 ou ”:” {test BEQ positif}, on a 
parcouru tous les octets résiduels de 
l'ex - numéro de ligne et on arrive à 
l'instruction suivante. On reprend 
donc la recherche des instructions de 
branchement éventuelles. 

— Ligne 83: normalement, ce test 
BCS ne sera positif que si loctet lu 
par $B1 est inférieur à #$30, et plus 
précisément s'il s’agit du code de la 
virgule (#$2C). Tout autre cas relè- 
verait d’une erreur de syntaxe au ni- 
veau du programme Applesoft (ins- 
tructions telles que "GOTO 100 Z = 
0”, par exemple). 

Ce test vise donc à traiter le cas des 
instructions du type “ON Z GOTO 
100, 200, 300”. En retournant en 
S3, on va ainsi calculer les adresses 
des autres lignes de branchement 
possibles. 

— Lignes 84 à 86: l'octet lu est cette 
fois normalement un chiffre faisant 
partie du numéro de ligne initial (nu- 
méros à plus de deux chiffres). On le 
remplace par un ”:” (#$3A) afin 
d'éviter les erreurs de syntaxe uité- 
reures lors de l'exécution du pro- 
gramme modifié. Ensuite, on va lire 
Poctet suivant pour voir si l'on est ar- 
rivé ou non à la fin du numéro de 
ligne. 


Lorsque cette routine a terminé le 
calcul des adresses, elle vous rend la 
main en mode immédiat du Basic. Si 
vous faites un LIST du programme 
désormais en mémoire, vous risquez 
fort de voir apparaître des instruc- 
tions trés exotiques, comme par 
exemple : 


GOTO HGR ‘” :: 


En effet, une instruction GOTO 
10080, qui était stockée sous la 
forme : 

AB 31 30 30 30 30 

le sera maintenant sous la forme : 


25 





AB 91 22 3A 3A 3A 

si $2291 est l'adresse, moins 1, de la 
ligne 10000. 

En passant sur cette instruction, la 
routine de LIST ne pourra que déco- 
der ce qu'elle trouve et vous affi- 
chera donc “GOTO HGR ”::”. 
N'en soyez pas trop surpris. 


ll est évident. par ailleurs, que de 
telles instructions ne pourront être 
exécutées sans problème lors d’un 
RUN que si l'on modifie l’interpré- 
teur Applesoft en conséquence. C'est 
un point délicat qu'il nous reste 
maintenant à examiner. 


Interprétation des 
branchements sur 
adresses 


Le programme Applesoft qui se 
trouve maintenant en mémoire 
comporte donc des instructions exoti- 
ques de branchement sur adresses 
dont il convient d'assurer l'exécution. 
Depuis Pom's 16, nous savons qu'il 
est possible de placer une indirection 
dans la routine CHRGET, qui 
commence à l'adresse $B1, afin de 
constituer une ‘’annexe” de l'inter- 
préteur, dans laquelle on peut traiter 
des instructions originales ou modifier 
le traitement correspondant aux ins- 
tructions standard. C'est encore la 
solution que nous adopterons ici 
pour là manipulation des branche- 
ments sur adresses. Ainsi, dans le cas 
présent. un saut “JMP $9000" est 
implanté à l'adresse $BA, et la rou- 
tie commençant en $9000 sera 
chargée de filtrer les instructions 
avant de les transmettre, éventuelle- 
ment intactes. à l’interpréteur. 


Avant d'analyser cette routine. il 
nous faut insister sur deux catégories 
de problèmes propres à la nature des 
opérations réalisées. 

— La routine CHRGET retourne l'in- 
dicateur de retenue (C) à O dans le 
cas où le caractère lu est le code 
ASCII d'un chiffre (#$30 à #$39), 
et dans ce cas seulement. L’Apple- 
soft utilise cette particularité chaque 
fois qu'il analyse des instructions qui 
doivent être suivies d’un nombre, 
telles que GOTO 100: après lecture 
du premier caractère suivant le token 
de GOTO), la routine d'acquisition du 
numéro de ligne (FDAOC) comporte 
des tests BCS. en retour de 
CHRGET, qui provoquent une er- 
reur s'ils sont positifs. 

Nos adresses de lignes, issues des 
calculs, comporteront inévitablement 
des octets à l'extérieur de la plage 
#$30 — #$39, qui fourniront un in- 
dicateur C=1 après leur lecture par 
CHRGET, là où les routines standard 
de l'Applesoft attendent C=0. 

Ceci ne pose guère de problèmes 
pour l'analyse des tokens “maîtres”, 


comme dans l'instruction "10 GOTO 
adresse”. En interceptant le GOTO), 
on sait qu'il nous faut ensuite récu- 
pérer l'adresse sans se préoccuper de 
la valeur du bit C et on peut contrô- 
ler l'ensemble du processus. 

Il n’en va pas de même pour des ins- 
tructions du type ‘10 IF <condi- 
tion> GOTO adresse”. Si l'on ne 
veut pas refaire ce qui existe, le trai- 
tement de IF et l'analyse de la condi- 
tion seront laissés à l’Applesoft, évi- 
demment. et l'interprétation 
ultérieure de "GOTO adresse” se 
fera sous contrôle de la routine de 
IF, qui se préoccupera de la valeur 
de C au moment de lire ce qu'elle 
considère comme un numéro de 
ligne et de passer la main à la rou- 
tine de GOTO. De plus, le traitement 
de IF risque fort, à un moment ou 
un autre, de lire le GOTO pour véri- 
fer que l'énoncé de la condition est 
terminé. Si nous interceptons alors le 
GOTO pour réaliser automatique- 
ment le branchement. il n'y a plus de 
test et le IF n'est pas correctement 
exécuté. 

La conséquence principale de ce 
problème réside dans le fait que l’on 
ne peut pas écrire une routine géné- 
rale d'interception des GOTOs et 
GOSUBs, basée sur le principe d’une 
interprétation prioritaire. Une telle 
routine reposerait sur une intercep- 
tion au niveau du “JSR $00B1” de 
l'adresse $D81D {voir Pom's 16). 
Etant donné que l’on ne passe pas 
en $D81D pour lire GOTO ou 
GOSUB lorsqu'ils ne sont pas tokens 
maîtres. il faudrait alors intercepter 
également les IFs et faire en sorte 
qu'ils acceptent des branchements 
sur adresses, en bout de course, si la 
condition est satisfaite. Cela ne ferait 
qu'élargir le problème à la modifica- 
tion du traitement d'une autre ins- 
truction, en sus des branchements. 
Pour tourner la difficulté, nous adop- 
terons une analyse a posteriori: la 
décision de branchement sera prise 
lorsque le caractère lu, avant celui 
que l’on est en train d'examiner, est 
le token d'une instruction de bran- 
chement, et dans là mesure où le 
sommet de la pile traduit bien le fait 
que l'interpréteur travaille effective- 
ment sur une telle instruction. Enon- 
cée de la sorte, la chose paraît certes 
un peu complexe, mais elle le sera 
moins lorsque nous entrerons dans 
les détails. 


— Nous tenterons de traiter ici tous 
les branchements, simples comme 
GOTO, multiples comme ON 


GOTO, mais aussi le ONERR 
GOTO. 
Dans ce dernier cas, il convient, 


d'une part. de placer l'adresse de la 
routine Basic de ONERR à l'endroit 
idoine et, d'autre part, de récupérer 
le contrôle des opérations lorsqu'une 
erreur se produit, ce qui suppose que 
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l'on sache qu'une erreur vient de se 
produire. 

On retrouve en fait un problème gé- 
néral au niveau de notre routine : sa- 
voir d’où l'on vient, c'est-à-dire de 
quelle adresse à été appelée 
CHRGET et donc notre indirection 
en $9000. Comme vous pourrez le 
constater plus loin, c’est la pile du 
processeur qui nous fournira les ré- 
ponses. 


Environnement 


Le fonctionnement de là routine qui 
exécute les instructions ($D7D2) a 
été détaillé dans l’article précédent. 
De plus, nous avons vu plus haut 
comment procède la routine standard 
de GOTO. La routine de GOSUB 
utilise tout simplement la routine 
GOTO. mais dépose au préalable au 
sommet de la pile les éléments qui 
permettront au RETURN de revenir 
au bon endroit (vous n'aurez aucune 
peine à analyser la routine GOSUB, 
qui débute en $D921). Ces deux 
routines seront complètement rem- 
placées par les nôtres dans l'indirec- 
tion $9000. 


Pour clarifier la suite du propos, il 
peut être bon de préciser par ailleurs 
comment fonctionnent les routines 
de IF et de ON .., et comment se 
passe la prise en charge d'une erreur 
lorsque ONERR est actif. 


Routine IF 


La petite liste ci-dessous, extraite de 
la ROM Applesoit, constitue le coeur 
de la routine de IF: 


#07C9L 

09Cÿ- 20 ?B DO JSR $DD78 
D9CC- 20 87 00 JSR S$00B? 
O9CF- CF AB CMP  £sAB 
DSDI= F0 05 BEQ 0708 
D9D3- A9 C4 LOA £$C4 
D905- 20 C0 DE JSR $D€CO 
0908- A5 9D LDA +98 
D90A- DO 05 BNE  SD9Et 
DFDC- 20 Aé D9 JSR 40946 
D90F- FD 87 BEQ  s0798 
DSEI- 20 87 00 JSR  500B7 
DSE4- BO 03 BCS  $D9E9 
D9E4é- 4C 3€ D9 JMP $D93E 
09E9- 4C 28 D8 JMP $D828 


$DD7B est la partie la plus impor- 
tante (analyse et test de la condition) 
mais elle ne concerne pas notre 
sujet. 

Après l'analyse du 4SR $DD7B, on 
recharge en À le caractère pointé par 
$B8-$B9 (JSR $B7), qui peut être 
GOTO (#$AB), et doit être THEN 
(#$C4) si ce n'est pas GOTO (sinon, 
$DECO finira sur une SYNTAX 
ERROR. Si c'est THEN, $DECO per- 
mettra de lire l'octet qui suit le 
THEN). 

Si la condition n'est pas satisfaite, 
$9D contient O0. Dans ce cas. on met 
le nombre d'octets restants dans la 
ligne (après celui pointé par $B8- 
$B9) dans Ÿ par JSR $D9A6. Le 
dernier caractère lu par $D9A6 est le 
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O0 de fin de ligne et le test BEQ 
amêne donc en $D998 qui pointe 
$B8-$B9 sur l'octet précédant la 
ligne suivante et amène au JMP 
$D7D2 de adresse $D823 par un 
simple RTS final. On vérifie ainsi que 
“condition non satisfaite” se traduit 
en Applesoft par ‘’passage à la ligne 
suivante”. 

Si la condition est satisfaite, on anive 
en $DSEI. On relit le caractère 
pointé par $B8-$B9 (JSR $B7), qui 
peut être soit le token de GOTO), soit 
l'octet suivant le token de THEN 
(c'est-à-dire un autre token, le pre- 
mier chiffre d’un numéro de ligne ou 
le premier caractère d’un nom de va- 
riable). Si c'est un chiffre. C=0 au 
retour de $B7, et on sort par JMP 
$D93E (THEN 100 est donc bien 
traité comme GOTO 100). Si ce 
n'est pas un chiffre (C=1), on sort 
par JMP $D828; on revient donc 
dans l'interpréteur comme si l’on ve- 
nait de lire une variable ou un token 
maître” (comme si l’on venait du 
JSR $D828 de l'adresse $D820). 


Dans notre routine de calcul d’adres- 
ses, nous avons fait en sorte de 
n'avoir plus que des instructions du 
type "IF .. GOTO adresse”, qui 
aboutiront donc en $D828, exacte- 
ment comme nos instructions directes 
GOTO adresse”. De même, ies ins- 
tructions  ‘” … THEN GOSUB 
adresse” arriveront en  $D828 
(comme un GOSUB simple) lorsque 
se posera le problème de réaliser le 
branchement. 

Cette brève analyse de IF montre par 
ailleurs que l’on ne pourrait effective- 
ment pas intercepter le GOTO direc- 
tement au moment où il est lu par 
CHRGET : le JSR $B7 de l'adresse 
$D9CC, par exemple, provoquerait 
alors le branchement avant même 
que l’on sache si la condition est sa- 
tisfaite pour justifier ce branchement. 
De plus, le fait que l'on passe par 
$B7 pour relire le token de GOTO 
prouve que $B8-$B9 pointe déjà sur 
GOTO, qui a donc été lu, dans les 
traitements recouverts par JSR 
$DD7B, au moyen d'un saut à $B1. 
Les risques de branchement préma- 
turé sont ainsi fort nombreux et justi- 
fient un traitement a posteriori, via le 
passage par $D828 qui se termine, 
rappelons-le, par un JMP $B1. 


Routine de ON 


Vous trouverez ci-dessous un bref 
extrait de la routine ON :- 


#*DPECE 

O9EC- 20 F8 Eé JSR SE6F8 
DSEF- 48 PHA 

09FC0- C9? B0 OP £5B0 
D9F2- FO O4 GEQ +09F8 
09F4- C9 A8 Ce £sa8 
D9F6- 00 89 BNE 0961 
D9FB- Cé A1 DEC sal 
D9FA- 00 04 BNE s0AO0 
D9FC- 68 PLA 

D?FD- 4C 2A De UMP $D82A 
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DA00- 20 81 00 JSR 0081] 
DA03- 20 0C DA JSR  SDAOC 
DA06- c9 2C O1P £s2C 
DA0O8- F0 EE BEQ +#D9F8 
ORDJA- 68 PLA 

DAC8- 60 RTS 

DAOC- A2 00 LDX £$00 
DACE- 86 50 STX +50 
OR10- 86 S1 STX ss! 
DAI2- 66 F7 BCS  $0A06 


La sous-routine appelée par JSR 
$E6F8 se charge d'évaluer l’expres- 
sion dans l'instruction ON <expres- 
sion> GOTO / GOSUB”. Au retour, 
la valeur concemée est stockée en 
$A1, et $B8-$B9 pointe sur le pre- 
mier octet qui suit l'expression (cet 
octet est également en À). 

L'octet suivant l'expression est em- 
pilé Ce peut être le token de 
GOSUB {#$B0) ou celui de GOTO 
(#$AB); sinon : SYNTAX ERROR. 
En $D9F8, on décrémente $A1. Si la 
valeur de $A1 tombe alors à 0, on 
dépile le token de l'instruction et on 
retoume dans l'interpréteur en 
$D82A, c'est-à-dire, une fois encore, 
comme si l'on venait de lire GOTO 
ou GOSUB comme token ”’maître”. 
Ainsi, si $Al contenait la valeur 1, 
on passe à 0 au premier DEC $ Al et 
on saute en $D82A en pointant sur 
GOTO ou GOSUB : l'interprétation 
du token réalisera alors le branche- 
ment sur le numéro de ligne qui suit 
l'octet pointé par $B8-$B9 à l'entrée 
dans $D82A, donc le premier nu- 
méro donné dans l'instruction ON, 
ce qui est conforme aux résultats ob- 
servés lorsque vous utilisez ce type 
d'instruction. 


Si $AI ne tombe pas à O, on lit l’oc- 
tet suivant (JSR $B1) et on appelle 
$DAOC. Cette routine se charge 
d'évaluer le numéro de ligne pointé 
par $B8-$B9 à l'entrée. Elle procède 
par des JSR $B1 successifs, jusqu'à 
ce que $B1 lui retoume un C=1 (ca- 
ractère lu n’est pas un chiffre). Au re- 
tour, À contient l'octet qui suit le nu- 
méro de ligne, octet par ailleurs 
pointé par $B8-$B9 

Norrnalement, le séparateur des nu- 
méros de ligne dans un ON est la 
virgule (#$2C). Si l'on récupère bien 
une virgule en retour de $DAOC, on 
retoume alors en $D9F8. Ainsi, si 
$A1 contenat 2 au départ, on est 
passé à 1 lors du premier DEC $AI1. 
On passe donc le premier numéro de 
ligne et on pointe sur la première vir- 
gule après JSR $DAOC. En retour- 
nant à $D9F8, $AI tombe cette fois 
à O et on saute à $D82A. Comme À 
contient le token de l'instruction 
GOTO ou GOSUB. l'analyse du 
token et le choix de la routine corres- 
pondante se fera correctement. Le 
branchement sera ensuite réalisé sur 
le numéro de ligne qui suit Foctet 
pointé par $B8-$B9 à l'entrée dans 
$D82A, c'est-à-dire le numéro qui 
suit la première virgule, ou encore le 
second numéro indiqué, qui corres- 
pond bien à la valeur 2 pour l'ex- 


pression de ON <expression> ..”, 
Ce processus d'avancée du pointeur 
$B8-$B9 se poursuivra ainsi toujours 
jusqu'à la virguie qui précède le nu- 
méro de ligne dont le rang dans la 
liste des numéros de ligne corres- 
pond à la valeur de l'expression. 

Par contre, si l’on ne récupère pas 
une virgule en retour de $DAOC, on 
dépile simplement le token et on sort 
par RTS. Comme l'interprétation se 
fait sous le contrôle du JSR $D828 
de l'adresse $D820, on revient en 
$D823 qui nous renvoie en $D7D2 
pour l'analyse d’une autre instruc- 
tion. Cette situation résulte soit d’une 
valeur nulle pour “expression”, soit 
d'une valeur supérieure au nombre 
de numéros de ligne donnés dans la 
liste (la valeur nulle relève du même 
principe, puisqu'on part de #$FF 
après le premier DEC $A1). Dans ce 
cas, on a avancé le pointeur $B8- 
$B9 jusqu'au premier octet qui suit 
la liste des numéros de ligne (norma- 
lement ”-” ou 0 de fin de ligne} : par 
$D7D2 on passe donc à l'instruction 
ou à la ligne suivante. On vérifie bien 
que, si ”’expression” vaut O0 ou une 
valeur supérieure au nombre d’items 
prévus, l'instruction ON expression” 
… fait simplement passer à la suite, 
sans réaliser de branchement. 

Pour mémoire, notons qu’une erreur 
de syntaxe dans le ON (mauvais sé- 
parateur de numéros de ligne} pro- 
voquerait également la sortie par 
RTS. Mais on ne serait pas alors 


dans une situation conforme pour 
$D7D2, d'où SYNTAX ERROR. 


Dans notre indirection, nous n'inter- 
cepterons pas les ON”, afin de ne 
pas devoir refaire tout ce qui précède 
la phase de branchement propre- 
ment dite. En revanche, nous pren- 
drons la main lors du JSR $B1 de 
l'adresse $DAOO, afin de déplacer 
nous-mêmes le pointeur $B8-$B9 et 
l'amener jusqu’à l'adresse de bran- 
chement adéquate. Quant au bran- 
chement, nous l'intercepterons en- 
suite a posteriori, via le passage de 
ON par $D82A, selon les mêmes 
principes que pour ÏF 


Prise en charge 
d’erreur par ONERR 


Lorsque ONERR est actif, la surve- 
nance d’une erreur se traduit finale- 
ment par un branchement en $F2E9 
Cette routine rétablit certains para- 
mètres pour donner la main au sous- 
programme de traitement des erreurs 
et. en particulier, elle met en $B8- 
$B9 le contenu des adresses $F4- 
$F5. Ces deux adresses contiennent 
l'adresse du numéro de la première 
ligne de traitement d'erreur donnée 
après l'instruction ONERR GOTO 
(par exemple, l'adresse du premier 
chiffre de 9000 si vous avez indiqué 
ONERR GOTO 9000) La mise en 
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place de $F4-$F5 est réalisée lors de 
l'interprétation de ONERR GOTO. 
Ensuite, la routine repositionne les 
registres et les indicateurs du registre 
d'état sur le premier caractère de la 
première ligne de traitement d'erreur 
par un JSR $B7 (on est toujours sur 
le 9 de ONERR GOTO 9000. par 
exemple) On exécute alors un 
GOTO par JSR $D93E : le branche- 
ment se fait donc comme s'il s'agis- 
sait d'un GOTO 9000, traité en cas 
d'erreur, ce que traduit bien finale- 
ment l'instruction ONERR GOTO … 
A l'issue du JSR $D93E, $B8-$B9 
pointe sur l’octet précédant la pre- 
mière ligne de traitement d'erreur 
(sur l’octet précédant la ligne 9000, 
par exemple), et on saute directe- 
ment à l'exécution de cette ligne par 
JMP $D7D2. 


La fin de ce processus est résumée 
ci-dessous : 

F30F-JSR $00B7 

F312-JSR $D93E 

F315-JMP $D7D2 


Notre indirection se chargera d'inter- 
cepter l'ordre initial de ONERR 
GOTO pour mettre directement en 
$F4-$F5 l'adresse (moins 1) de la 
première ligne de traitement d'erreur 
On aurait ainsi de suite l'adresse de 
l'octet précédant la ligne 9000 et non 
l'adresse du 9 dans un ONERR 
GOTO 9000. 

Ensuite, c'est au niveau du JSR $B7 
de l'adresse $F30F que nous pour- 
rons reprendre à notre compte le 
traitement d'erreur effectif, c'est-à- 
dire assurer le branchement au sous- 
programme de traitement d'erreur 
lorsque celle-ci s’est effectivement 
produite. 


Indirection dans 


l’interpréteur 

Le source de cette routine est donné 
en fin d’article. 

Tout appel à $B1 ou $B7 nous amè- 
nera donc en $9000, l'essentiel du 
travail consiste alors à filtrer les infor- 
mations pour déterminer sil nous 
faut prendre en charge les branche- 
ments ou restituer les octets lus sans 
rien faire. Dans cet effort d'analyse. 
la pile et son pointeur constitueront 
nos principaux soutiens. Rappelons. 
par ailleurs, qu'il est bon d'avoir bien 
étudié les mécanismes du RUN pour 
se pencher sur cette nouvelle routine. 


Les indications ci-dessous vous per- 
mettront de compléter les commen- 
taires du listing 


— [Lignes 14 à 25: lappel à 
CHRGET vient-il de la routine de 
traitement du ON, ou encore. s'agit-il 
du JSR $B1 de l'adresse $DAO( ? Si 
tel est le cas, le sommet de la pile 
(plus précisément les deux octets 
juste en dessous du sommet) doivent 
correspondre à l'adresse de retour 


moins 1 de ce JSR. soit $DAOZ2 (le 
$02 se situant au-dessus du $DA 
dans la pile) 

Si tel est le cas. nous irons chercher 
les virgules éventuelles (JSR VIR), 
nous ‘sortirons” le JSR $B1 de la 
pile par deux PLA, nous chargerons 
À avec le code de la virgule (#$2C) 
et nous laisserons l'Applesoft conti- 
nuer le travail en retournant en 
$DA06. En résumé. on remplace la 
sous-routine Applesoft de positionne- 
ment sur virgules par la nôtre, qui 
doit tenir compte de ce que nous 
mémorisons des adresses de lignes et 
non des numéros de lignes 


— Lignes 26 à 29: le seul token 
traité ‘en direct” (au niveau du JSR 
$B1 de l'adresse $D81 D) est celui de 
ONERR (#$A5). Nous devons alors 
placer les paramètres de branche- 
ment sur le sous-programme de trai- 
tement d'erreur (JMP ONI). 


— Lignes 30 à 36: traitement de 
l'erreur effective lorsque ONERR est 
actif. Dans ce cas, on doit venir du 
JSR $B7 de l'adresse $F30F (som- 
met de la pile égale retour en 
$F311} Branchement sur notre rou- 
tine ERR 


— Lignes 37 à 44. analyse a poste- 
riori des instructions de branchement. 
$6-$7 contiennent toujours l'adresse 
de loctet lu par CHRGET avant 
celui que l'on est en train de lire par 
ce même CHRGET Le branchement 
ne se fera que si le caractère précé- 
dant est un GOTO (#$AB). un 
GOSUB ({#$B0) ou une virgule 
(#$2C -traitement des ON … lors- 
que le branchement ne se fait pas 
sur la première ligne donnée dans la 
liste) 

Ceci permet d'éviter les branche- 
ments prématurés. Si l'on est encore 
sur la même ligne” que l'instruction 
de branchement, sur laquelle on est 
déjà passé sans tien faire. c'est sans 
doute que l'Applesoft veut réellement 
exécuter un branchement et qu'il en 
cherche l'adresse Il nous reste en 
sus un second verrou, vis-à-vis de 
ces branchements prématurés. que 
nous examinerons plus loin 


— Lignes 45 à 55: l'octet lu n'est 
pas pour nous. On en stocke 
l'adresse en $6-$7 (il peut en effet 
s'agir du token d'une instruction qui 
nous intéresse), on restaure les regis- 
tres et on reprend le cours normal du 
CHRGET standard 


— Lignes 56 à 64: second verrou 
des branchements. Tous les branche- 
ments. simples ou complexes {IF ou 
ON). passent par $D828 ou $D82A 
dans l'interpréteur On doit arriver 
alors du JMP $B1 de l'adresse 
$D83C, avec au sommet de la pile 
l'adresse moins 1 de la routine de 
traitement de GOTO ($D93E) ou de 
GOSUB ($D921) 

Si tel est bien le cas, il devient cer- 
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tain que le branchement doit être ef- 
fectué. en fonction des résultats obte- 
nus précédemment par l'Applesoft 
(on est arrivé jusqu’au point où l'Ap- 
plesoft se met à la recherche des 
adresses des numéros de lignesl. 


— Lignes 65 à 77: traitement 
GOTO. On sort” de la pile l'adresse 
moins 1 de la routine de GOTO On 
trouve dans les deux octets consécu- 
tifs pointés par $B8-$B9 (là où serait 
le premier chiffre du numéro de 
ligne) l'adresse moins 1 de la ligne 
de branchement. que l'on transfère 
en $B8-$B9 {et en $6-$7 pour archi- 
as de l'adresse du dernier octet 
u). 


On est toujours sous contrôle du JSR 
$D828 de l'adresse $D820 (directe- 
ment ou non, comme on l’a vu en 
analysant IF et ON). Le RTS nous 
amène en $D823. soit sur JMP 
$D7D2 pour passer à l'instruction 
suivante pointée par $B8-$B9, c'est- 
à-dire la ligne de branchement. Mis- 
sion accomplie ! 


— Lignes 78 à 98: traitement de 
GOSUB: principes identiques à 
GOTO. 

En sus, il faut toutefois contrôler la 

place disponible dans la pile et empi- 

ler ensuite : 

e l'adresse de retour après exécution 
de la sous-routine (nous prenons 
ici l'adresse du premier ”:"” qui suit 
l'adresse de la sous-routine après 
GOSUB); 

e le numéro de la ligne où l'on doit 
revenir {adresse de la ligne cou- 
rante mémorisée en $75-$76); 

e le token de GOSUB (#$B0) pour 
éviter ensuite les erreurs ‘RE- 
TURN WITHOUT GOSUB). 

On passe ensujte directement à la 
sous-routine par JMP $D7D2, et non 
par RTS, car c'est la routine de trai- 
tement du RETURN qui est conçue 
dans l'Applesoft pour assurer la sortie 
du JSR $D828 de l'adresse $D820. 


— Lignes 99 à 126: mise en place 
des paramètres pour ONERR GOTO. 
On vérifie tout d'abord que l'on vient 
effectivement de l'analyse du token 
maître ONERR {sommet de la pile 
égale $D81IF si l'on vient du JSR 
$Bi de $D81D). Dans ce cas. on 
trouve l'adresse deux octets plus loin 
que la position pointée par $B8-$B9 
(ONERR pour Y=0. GOTO pour 
de 1, premier octet de l'adresse pour 

=2) : 
On stocke cette adresse du sous-pro- 

amme de traitement d'erreur en 
SF4.SFS, on passe directement au 
premier octet qui suit cette adresse 
en ajoutant 4 à $B8-$B9 (plus archi- 
vage en $6-$7)} et on signale à l'Ap- 
plesoft que ONERR est actif en met- 
tant #$80 à l'adresse (drapeau) $D8 
C'est dans la mesure où ce drapeau 
est positionné à #$80 que l'arr.vée 
d’une erreur nous enverra en $F2E9 
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{voir plus haut). 

On sort ensuite de notre JSR $B1 
par deux PLA et on passe directe- 
ment à la suite par JMP $D7D2. 
puisque l'on a réalisé ici tout le traite- 
ment nécessaire pour notre propre 
manipulation des ONERR GOTO et 
des erreurs éventuelles. 


— Lignes 127 à 133 : traitement des 
erreurs effectives. Le traitement stan- 
dard Applesoft a déjà remis en $B8- 
$B9 la valeur de $F4-$FS (adresse 
première ligne sous-programme d'er- 
reur) et il nous reste à l'archiver en 
$6-$7. On restaure ensuite le poin- 
teur de pile à la valeur qu'il avait lors 
de la rentrée en $D7D2 (stockée en 
$F8) pour analyse de l'instruction au 
cours de laquelle l'erreur s'est pro- 
duite. En remontant en ONO {JMP 
$D7D2) on commence directement 
l'exécution du sous-programme de 
traitement d'erreur. 

À noter que notre manipulation de 
ONERR permet une utilisation répé- 
tée sans les problèmes de “OUT OF 
MEMORY” que l'on rencontre avec 
le traitement standard de l'Applesoft 


— Lignes 134 à 156 : recherche des 
virgules dans le cadre des instructions 
ON … 

Comme les adresses occupent tou- 
jours deux octets. la recherche peut 
commencer à deux octets de la posi- 
tion courante {token de GOTO ou 
GOSUB. ou précédente virgule). 
d'où un LDY #2 au départ. 

Un numéro de ligne occupant au 
maximum 5 octets (soit deux octets 
d'adresse et trois ‘:” après notre cal- 
cul d'adresses), on doit trouver nor- 
malement une virgule avant que ŸY 
atteigne la valeur 6 Si tel n'est pas le 
cas. il ne peut y avoir de branche- 
ment et on doit passer à l'instruction 
suivante en séquence, comme dans 
le traitement standard. On exécute 
donc deux PLA pour sortir du JSR 
VIR de notre routine. deux PLA pour 
sortir du JSR $B1l de l'adresse 
$DA00. un PLA pour récupérer le 
token empilé par la routine de ON 
Le RTS de la ligne 156 nous enverra 
donc en $D823 (retour du JSR 
$D828 de l'adresse $D820) pour 
passer à l'instruction suivante. De 
plus, on remet Y à 2. pour pointer 
sur le premier octet qui suit la der- 
nière adresse de ligne donnée dans 
la liste (en principe. on a avancé ré- 
gulièrement $B8-$B9 pour le faire 
pointer sur la virgule que l'on vient 
de trouver — voir ci-dessous En par- 
tant de la dernière virgule trouvée, la 
fin de l'instruction ON GOTO se 
trouve deux octets plus loin, juste 


après la dernière adresse de ligne 
donnée dans la liste) 

Les lignes 147 à 155 permettent de 
positionner $B8-$B9 sur la virgule 
trouvée et d'en archiver l'adresse (on 
ajoute la valeur de Y à la précédente 
valeur de $B8-$B9) C'est approxi- 
mativement le mème traitement que 
celui réalisé par l'Applesoft dans sa 
routine $DAOC On revient ensuite 
pour redonner la main à la routine 
de ON. qui se chargera de savoir si 
l'on est arrivé ou non à la bonne 
adresse de branchement {à la bonne 
virgule) 

Dans le cas du non branchement 
(expression vaut O ou supérieure au 
nombre d'items prévus), les lignes 
147 à 155 permettent de faire poin- 
ter $B8-$B9 sur le premier octet qui 
suit la fin de l'instruction ON 


Mode opératoire 


Pour tester ce système de branche- 
ment sur adresses, nous vous 
conseillons de disposer sur une 
méme disquette des codes objets des 
deux routines concernées. Sur la dis- 
quette Pom's. la routine de calcul 
des adresses est baptisée COMPG2 
et celle d'analyse des instructions de 
branchement INTERG11 

Comme dans les exemples évoqués 
dans le Pom's 16, constituez égale- 
ment un petit fichier pour mettre en 
place l'indirection dans CHRGET Ce 
fichier contiendra simplement les 
codes 4C 00 90 {JMP $9000) et 
devra se charger à l'adresse $BA. Un 
tel fichier est fourni sur la disquette 
d'accompagnement sous le nom 
INTERG 

Un second fichier permettra de réta- 
blir CHRGET à sa structure normale. 
Il devra se charger également en 
$BA et contiendra les 4 octets C9 3A 
BO CA {CMP #$3A et BCS $00C8) 
Ce fichier s'appelle CHRGET sur la 
disquette d'accompagnement 


Constituez ensuite un fichier EXEC 
(tel COMPDEF sur la disquette) qui 
comprendra les instructions suivan- 
tes : 


HIMEM:9+4096 
BRUN COMPG2 
BLOAD INTERG11 
BLOAD INTERS 


Une fois ce fichier présent sur la 
même disquette que les autres. char- 
gez ou entrez au clavier votre pro- 
gramme ‘source en Applesoft (sau- 
vez-le sous cette forme normale si ce 
n'est déjà fait). 

Tapez ensuite EXEC COMPDEF. 
pour faire exécuter le calcul des 


adresses et mettre en place l'indirec- 
tion dans CHRGET Listez le résultat 
de ce travail, ne serait-ce que par 
curiosité. 

Vous pouvez enfin faire un RUN du 
programme adapté en mémoire et 
contrôler le déroulement des opéra- 
tions. 

Pour revenir à l'Applesoft standard, 
tapez. en mode immédiat par exem- 
ple, BLOAD CHRGET le pro- 
gramme en mémoire. avec les 
adresse calculées, ne pourra dès lors 
plus être exécuté sans erreur de syn- 
taxe, à moins que vous ne rechargiez 
l'aiguillage par BLOAD INTERE). 

Un programme comportant des 
adresses en lieu et place des numé- 
ros de ligne ne peut généralement 
pas être sauvé sur disquette correcte- 
ment, car la commande SAVE n'est 
pas prévue pour traiter des program- 
mes comportant des O ailleurs qu’en 
fin de ligne (alors qu'on peut trouver 
des O dans nos adresses de lignes). 
Ceci justifie l'emploi d'un fichier 
EXEC pour traiter automatiquement 
un programme source en mémoire, 
chaque fois que )'on veut tester son 
fonctionnement avec des branche- 
ments sur adresses 

Comme vous pourrez le constater. ce 
mécanisme de branchement ne se 
traduit par des gains de temps réels 
que dans certaines structures de pro- 
gramme bien particulières : nom- 
breux branchements sur des lignes si- 
tuées très loin de leurs points 
d'appel Dans les autres cas. le temps 
perdu à analyser chaque octet du 
programme dans la routine $9000, 
que celui-ci la conceme ou non. an- 
nule le temps gagné sur les branche- 
ments. Cet exercice de style nous 
aura donc surtout servi de prétexte 
pour approfondir le fonctionnement 
de l'Applesoft et les processus de 
greffe” que l'on peut lui appliquer 
par le biais de l'assembleur et du lan- 
gage machine Nul doute que l'utilité 
de la pile. en tant qu'outil de mémo- 
nsation des opérations passées et 
d'analyse de ces opérations vous ap- 
paraîtra plus nettement après cet 
usage intensif du pointeur de pile 


L'étude en profondeur des routines 
de l'Applesoit pourra vous être sou- 
vent utile, si vous désirez persévérer 
dans la chirurgie plastique du lan- 
gage de base de votre Apple. Afin de 
vous y aider un peu, vous trouverez 
en annexe la liste des points d'entrée 
des routines de traitement des tokens 
“maîtres” Vous serez ainsi en posse- 
sion des clés. à vous d'ouvrir les 
portes. 
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# 


# INSTRUCTIONS DE BRANCHEMENT 
# SUR UNE ADRESSE 
# CODE 


# 
# 
= INTERGI:! * 
+ 
# 


DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE DE M 





î 
? 


30 


ORG $9000 
STA  $BD ; STOCKAGE 
CARACTERE ANALYSE 
STY $8 3 SAUVE GARD 
E DES REGISTRES 
STX $9 
TSX 
LDA $102,X 3; VIENT -ON 
DE LA ROUTINE DU "ON° ? 
CMP  £$DA 
BNE  ON2 
LDA $101,X 
CMP  £$02 
BNE  ON2 
JSR VIR ; RECHERCHE 
DE L’ADRESSE DE BRANCHEMENT 
PLA 
PLA 
LDA £$2C PE 
JMP  $DA06 ; RETOUR À 
LA ROUTINE DE ®ON” 
ON2 LDA $BD 
CMP £$AS ;TOKEN DE 
"ONERR" ? 
BNE  SUOO 
JMP ON! 
SUO0 LDA $102,X 3 VIENT -ON 
DE LA ROUTINE QUI BRANCHE SUR 
SUO CMP  £$F3 5; LR ROUTIN 
E D'ERREUR SI "ONERR" 
BNE  UVO9 3 (TRAITEME 
NT D'UNE ERREUR EFFECTIVE) 
LDA $101,X 
CMP  £#11 
BNE  VO0 
JMP _ ERR 
Voo LDY £90 
LDA (#56) ,Y 3LE CARACT 
ERE PRECEDENT EST-IL : 
CMP £$AB ;"GOTO" ? 
BEQ SSD 
CMP  £$B0 3”"6OSUB" ? 
BEG SSD 
CMP  £$2C ED 
BEQ SSD 
SOEB LDA $B8 5M.A.J. PO 
INTEUR $6-$7 
STA $6 
LDA $B9 
STA $7 
LDY $B 
LDX #59 
LDA $BD REPRISE N 
ORMALE DE "CHRGET" 
CMP  £$3A 
BCS SI 
JMP  $BE 
S1 RTS 
ssh LDA +$102,X 3LE SOMMET 
DE LA PILE EST-IL L’ADRESSE DE 
CMP £$D9 5LA ROUTIN 
E DE "GOTO" ($D93E-1) 
BNE  SDEB 
SSDI1 LDA $101,X 
CMP  £$3D 
BEQ SSo 
CMP  £#20 ; OU DE "60 
SUB" ($D921-1) 
BEQ S2 
BNE  SDEB 
SS0 PLA > DEPILE S@ 
MMET 
PLA 


67 


SO LDOY £9 5MET $BB-$ 
89 À L'ADRESSE DE BRANCHEMENT 


ssi LDA (#$BB),Y 

PHA 

INY 

LDA ($B8),Y 

STA +$89 

STA $7 

PLA 

STA SB8 

STA %6 

RTS 
s2 PLA ; TRAITEMEN 
T "GOSUB* 

PLA 

LDA £53 

JSR #$D3D6 ; CONTROLE 
PLACE DISPONIBLE DANS LA PILE 

LDA $BB ; CALCULE E 
T EMPILE LES VALEURS CORRECTES 

CLC :POUR LE * 
RETURN" À VENIR 

ADC £2 

STA $6 

LDA 9589 

ADC £0 

PHA 

LDA $é 

PHA 

LDA $76 

PHA 

LDA +75 

PHA 

LDA £$B0 

PHA 

JSR SO ;M.A.J. DE 

$BB-$B9 

JMP $D7D2 3 SAUTE A L 
A LIGNE DU *“GOSUB" 
ONI LDA %$102,X 

CMP  £$D8 ;VIENT-ON 
DU JSR $BI DE 

BEQ ON10 :L'ADRESSE 

$DBID CTOKEN MAITRE) 

JMP  SUO 
ON10 LDA $101,X 

CMP  £S$iF 

BEQ  ONERR 

JMP  SUO090 
ONERR LOY £2 ADRESSE D 
E DEBUT-I DE LA PREMIERE LIGNE 

LDA (#88) ,Y ;DE LA ROU 
TINE BASIC APPELEE PAR "ONERR GOTO 

STA $F4 ;EST MISE 
EN $F4-$F5 

INY 

LDA <$BB),Y 

STA $F5 

LDA $88 PASSE A L 
A FIN DE L’INSTRUCTI®N 

CLE ;"ONERR GO 
TO ASRESSE" 

ADC £4 

STA 588 

STA %6 

LDA $B9 

ADC £0 

STA +89 

STA +7 

LOA £$80 

STA $D8 ; SIGNALE * 


GNERR" ACTIF 
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124 PLA ; SORT DU * 140 
JSR $681" DE $081D 
125 PLA 141 
126 ONO MP  $D7D2 : PASSE À L 
f INSTRUCTION SUIVANTE 142 
127 ERR LDA $F4 ;: SAUT À LA 
ROUTINE BASIC DE TRAITEMENT DES E 143 
RREURS 144 
128 STA $é 145 
129 LDA $FS5 144 
1390 STA $7 147 
131 LDX $F8 
132 TXS 
133 BNE  ONO 148 
134 VUIR LDY  £2 3: CHERCHE VU 
IRGULES DANS INSTRUCTION “ON GOTO 149 
... 150 
135 VIRI LDA (588) ,Y 15{ 
136 CMP  £f$2C 152 
137 8EQ VIR2 153 
138 INY 154 
139 CPY £é 3; SI PAS DE 155 
"," À 5 OCTETS DU TOKEN DE GOTG 156 
0388- 02 Eé 89 AO 00 20 
COMPG2 0390- FO A1 80 Cé A9 34 
0398- D0 F3 FF 
*300.394 
0300- AS 67 85 88 AS 68 85 89 INTERG 11 
0308- A0 01 81 88 DO 03 4€ 3C 
0310- D4 85 09 88 8! 86 85 08 #9000.9117 
0318- AO 02 81 88 85 75 C8 81 
0320- 88 85 76 AS BB 18 69 03 9000- 85 8D 84 08 86 09 
0328- 85 88 90 02 Eé 89 20 Bi 9008- 02 01 C9 DA DO 11 
0330- 00 90 0E C9? 3A F0 F7 A5 9010- 01 C9 02 DO OA 20 
0338- 08 85 88 AS 09 85 89 DO 9018- 68 68 A9 2C 4C 06 
0340- C7 C9 AB F0 15 C9 80 F0 9020- BD C9 AS DO 03 4C 
0348- 11 C9 C4 DO Et A0 01 81 9028- 8D 02 01 C9 F3 DO 
0350- 88 C9 3A 80 D9 88 A? A8 9030- 01 O1 C9 11 DO 03 
0358- 91 88 20 81 00 A4 88 84 9038- 90 A0 00 81 06 C9 
0360- 06 A4 89 84 07 C9 30 DO 9040- 1E C9 80 FO 1A C9 
0368- 03 20 B1 00 20 87 00 20 9048- 16 AS B8 85 06 A5 
0370- 3E D9 A0 00 AS 88 91 06 9050- 07 A4 08 A6 09 À5 
0378- C8 A5 B9 91 06 AS 06 85 9058- 3A B0 03 4C BE 00 
0380- 88 ÀS 07 85 B9 Eé 88 D0 9060- 02 01 C9 D9 D0 E3 
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F105 
D66R . CLEAR 












F6E9  HCOLUH= 
F35E2  HGA 











F24F  COLOA= 


D896 CONT 
0995 DATA 
F331  OEL 
OFDO9 OIM 
F269 ORAL 


0870 END 
F280 FLASH 


0766 FOR 


UBAO GET | 


D921 GOSu8 
D93E  GOTO 



































F308  HGR2 
F286  HIMEM: 
F252  HLIN 
FC58  HOÔME 
F6FE 








HPLOT 











BNE  VIRI ;0U GOSUB 
—-) ERREUR 
PLA > MAIS PASS 
AGE À INSTRUCTION SUIVANTE SI 
PLA ;VARIABLE= 
0 GU SUPERIEURE AU NOMBRE D'’ITEMS 
PLA 
PLA 
PLA 
LDY £2 
VIR2 TYA : PLACE $88 
-$89 SUR UNE VIRGULE DANS L’INSTRU 
CTION 
CLC ; "ON GOTO 
ADC +$B8 
STA +$B8 
STA 56 
BCC UVIR3 
INC $B9 
VIR3 LDA $B9 
STA $7 
RTS 
gt 00 9068- 01 C9 3D FO 0é C9 20 FO 
91 88 9070- 16 DO Dé 68 68 AU 00 B1 
9078- 88 48 C8 81 88 85 89 83 
9080- 07 68 8$ B8 85 06 60 68 
9088- 68 A9 03 20 Dé D3 A5 B8 
9090- 18 69 02 85 06 A5 89 69 
9098- 00 4B AS 06 48 A5 76 48 
90A0- AS 75 48 A9 80 48 20 75 
90A8- 90 4C D2 D7 8D 02 O0! C9 
BA BD 9080- Db8 FO 03 4C 2B 90 8D O1 
80 01 9088- 01 C9 1F FO 03 4C 28 90 
F2 90 90C0- A0 02 81 B8 85 F4 CB 81 
DA A5 90C8- 88 85 F5 A5 B8 18 69 04 
AC 90 90D0- 85 88 B5 06 AS 89 69 00 
A 8D 90D8- 85 89 85 07 A9 80 85 D8 
aC €5 90E0- 68 68 4C D2 D7 A5 F4 85 
AB F0 90E8- 06 AS FS 85 07 A6 F8 94 
2C FO 90F0- 00 FO AO 02 81 B8 C9 2C 
89 8s 90F8- FO OC C8 CO 06 DO F5 6B 
80 C9 9100- 68 68 68 68 A0 02 98 18 
68 80 9108- 65 88 85 88 85 06 90 02 
89 01! 9110- Eé 89 AS 89 85 07 60 00 


NORMAL 
NOTRACE 
NELU 









F7E7 


HTAB 


09C9 IF 

| FIDE IN# 

| D882 INPUT | 
F222  INUERSE 


LET 








0968 
F721 


0880 
Fr727 
F775 
F262 


RETUAN 


AOT= 


SAUVE 

SCALE= 
SHLORO 
SPEEU= 





AECALL 











D6AS 
DBC9 
| F2R6 LOMEM: 


LiST 
LORD 




















AEM 
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HGR DUMP sur Epson 


Alexandre Avrane 


Fatigué de n'utiliser votre imprimante 
graphique qu’au quart de ses possibi- 
lités ? Ce programme, prévu pour les 
imprimantes Epson mais adaptable à 
toutes imprimantes à aiguilles, ap- 
porte les possibilités d’une carte in- 
terface graphique... sans le coût. 


Voici les fonctions possibles : 


— impression simultanée (sur Île 
même bloc horizontal) de un à trois 
écrans haute-résolution de l'Apple 

— tabulations horizontales précédant 
l'impression des écrans 

— rotation de l’image imprimée de O, 
90, 180 ou 270 degrés 

— zoom possible dans les rapports 
1/1, 2/1, 4/1 

— impression en simple ou double 
densité F 

— impression normale ou inversée 
(noir / blanc) 

— définition possible de la fenêtre de 
l'écran haute-résolution à imprimer. 


Exécution du 
programme 


Le programme s'initialise par un sim- 
ple BRUN HGR DUMP. Il utilise 
l'omniprésent vecteur de l’ampersand 
(&). Une fois activé, il n'existe 
qu’une seule instruction pour l'exé- 
cuter, celle-ci comportant de très 
nombreux paramètres facultatifs, la 
syntaxe complète est : 


& PR# <écrans + 
<paramètres> 


Pas de panique ! En cas de trou de 
mémoire, tapez ‘’& PR# ?” et vous 
obtiendrez à l'écran la liste des para- 
mètres disponibles. De plus, tous les 
paramètres ont une valeur par défaut 
et peuvent être donnés dans n'im- 
porte quel ordre. 


tabulations> 


Vovons-les de plus près : 

© & est l'instruction qui débranche 
l'Applesoft vers le programme. Pas 
question de l'utiliser sous le Basic 
Integer ou le moniteur ! 

e PR# est l'identificateur du vecteur 
Ampersand demandé. En effet le 


programme, lors de son charge-‘ 


ment, ne détruit pas l'ancien vec- 
teur qui était éventuellement en 
place pour une autre routine. 
Celui-ci est automatiquement ap- 
pelé si le mot-clé PR# ne suit pas 
l'ampersand. 


Définition des écrans 


<écrans +tabulations> est une suite 
facultative de 1 à 3 écrans haute-ré- 
solution et éventuellement 1 à 3 ta- 
bulations horizontales qui les précé- 


deront à l'impression. Les valeurs 
possibles des écrans sont: HGR, 
HGR2, HGR3 {zone mémoire non 
visualisable située en $6880-$7FFF); 
les tabulations s'expriment par TAB 
(n) où n est exprimé en nombre de 
caractères de l'imprimante. 


Exemples : 


& PR# HGR, HGR2 

& PR# TAB(10), HGR2. TAB(5), 
HGR 

& PR# HGR3 

& PR# HGR. HGR3, TAB(10), 
HGR3 


Attention : dans le dernier exemple, 
la tabulaton indiquée s’appliquera 
avant l'impression du premier écran. 
Si une tabulation est nécessaire uni- 
quement entre le 2ème et 3ème 
écran, il faut écrire : & PR# TAB(0), 
HGR, TAB{0), HGR(3), TAB(10), 
HGR3.. c'est la rançon à payer pour 
saisir les paramètres dans n'importe 
quel ordre. Deuxième remarque : 
hormis le premier paramètre, tous les 
autres sont précédés par une virgule. 


Si rien n’est précisé, la commande 
par défaut est : 


& PR# TAB(0). HGR 


et imprime donc le premier écran 
haute-résolution de l'Apple. 


Un maximum de trois écrans (avec 
leur tabulation éventuelle) est auto- 
risé. En saisir un quatrième effacera 
le premier entré. 


Définition des autres paramètres 


Les autres paramètres sont : 


e ROT=n où n vaut 0, 1, 2 ou 3, 
correspondant à une rotation de 
0, 90, 180 ou 270 degrés de l'im- 
pression par rapport à l’image sur 
écran. 

e SCALE=n où n vaut 1, 2 ou 4 
(pas de 3!) effectue un effet de 
zoom de même proportion. 


e INVERSE imprime l'écran en in- 
verse {impression des points 
éteints uniquement) 


e FIASH demande une impression 
en double densité, donnant une 
meilleure définition du résultat (ca- 
ractéristique de l’'Epson). 

e SCRN{al, a2, bl, b2) précise la 
parte de l'écran à imprimer, en 
définissant les colonnes de départ 
(al) et d'arrivée (a2) et les lignes 
de départ (bl) et d'arrivée (b2) 
d’une fenêtre. Les valeurs sont ex- 
primées comme les HTAB et 
VTAB d'un écran texte, c'est à 


dire dans les limites 0-40 et 0-24 
respectivement. 


Lorsqu'ils sont omis, ces paramètres 
ont comme valeur par défaut : 
ROT=0, SCALE=I. non FLASH, 
non INVERSE, SCRN(0,40,0,24) 


Exemples d'utilisation : 


& PR# HGR2, FI ASH 

&  PR# INVERSE. ROT =1, 
SCALE=2 (écran HGR par défaut) 
& PR# HGR3, HGR, SCALE=A4, 
SCRAN(10,30,0,24) 


Dans la version actuelle du pro- 
gramme, tous les paramètres sont 
globaux et s'appliquent donc à l’en- 
semble des écrans demandés. 

Enfin, il est bien sûr de la responsa- 
bilité de l'utilisateur de charger les 
images vidéo en mémoire avant leur 
utilisation. 


Messages d'erreur 


SYNTAX ERROR est généré lorsque, 
le préfixe & PR# ayant été reconnu. 
la suite de la commande est incom- 
préhensible. 


ILLEGAL QUANTITY ERROR est 
généré lorsque les valeurs des para- 
mètres ROT, SCALE ou SCRN dé- 
passent les plages permises. 


OVERFLOW ERROR, enfin, lorsque 
la longueur totale d’une ligne d'im- 
pression (nombre d'écrans x taille 
d'un écran + tabulations) dépasse la 
longueur du rouleau de l'imprimante. 


Ces erreurs peuvent être interceptées 
par l'instruction ONERR GOTO de 
l'Applesoft. 


Fonctionnement 


Organisation interne 


Le programme nécessite une confi- 
guration minimum de 48K, ainsi que 
le moniteur Autostat et l'Applesoft 
sur la carte mère ou la carte langage. 
Il se charge à partir de l'adresse 
$8008 (32768), donc juste au-dessus 
de la troisième page graphique, et 
laisse plus de 4K octets disponibles 
pour d’autres routnes situées avant 
les buffers du DOS {ou de ProDOS). 


l est organisé en quatre parties prin- 
cipales : 

— un interpréteur de commandes qui 
gère l'initialisation et la lecture des 
paramètres 

— un algorithme d'impression pour 
des rotations à l'horizontale (ROT=0 
ou 2) 

— un algorithme d'impression pour 
des rotations à la verticale (ROT= 1 
ou 3 

— une batterie de modules de ser- 
vice 


Ïl est malheureusement impossible 
d'entrer plus en détail dans le fonc- 
tionnement des deux algorithmes en 
raison de leur complexité, la concep- 
tion de la haute résolution sur l’Ap- 


Pom's n° 17 


ple Îl avant dû être inspirée par un 
casse-tête chinois particulièrement vi- 
cieux. 


Gestion des interruptions et de 
l’environnement 


Le programme peut être interrompu 
momentanément par la touche ESC 
à la fin de l'impression d'une ligne. 
L'interruption est définitive par la 
touche CTRL-C. 

Le programe sauvegarde l'environ- 
nement utilisé (adresses en page 
zéro, vecteur de Reset, adresse de la 
routine de sortie de caractères) avant 
son exécution  L'’activation de 
RESET rétablit les valeurs d'origine; 
l'atilisation répétée très rapidement 
de Reset si ROT= 2 ou 3 peut ame- 
ner la destruction de l’image vidéo. 


Paramètres d'assemblage 


Le fichier source HGR DUMPS est 
utilisé par Big Mac 

PRSLOT définit le slot de l'impri- 
mante (actuellement 1). 

MX80, MX82, MX100 indiquent le 
modèle d'Epson utilisé. 

TWINLF doit être à @ si l'imprimante 
ne possède pas de saut de ligne in- 
terne, à 1 sinon. 


MSGO est le message envoyé (en 
ordre inversé) à l'imprimante pour 
initialiser la taille en pouces d’un saut 


de ligne. 
MSGI est le message lui indiquant 
que les PIXLNOI + 256 + 


PIXLNO2 octets suivants qu’elle re- 
cevra devront être considérés comme 
des représentations graphiques pour 
la tête d'écriture à 8 aiguilles, en sim- 


ple (DUMPTYPE = ”K”} ou double 
(”L”) densité. 


Améliorations possibles 


Il est possible de perfectionner le 
programme pour lui faire supporter 
d’autres types d'imprimantes à aiguil- 
les (en modifiant les valeurs de 
MSGC et MSG1 contenant les codes 
de contrôles). 

On pourrait également rendre les pa- 
ramètres locaux, donc autoriser l'im- 
pression, sur un même bloc horizon- 
tal, d’un écran nonnal suivi par un 
écran à taille double et tourné de 90 
degrés par exemple. 

Enfin, on peut le modifier pour gérer 
les couleurs, ou la double haute-ré- 
solution (560x192) de l'Apple //e. 


À vous de jouer ! = 





Source Big Mac 
LST OFF 
a" 'ePsou HGR SCREEN DUMP à 


voucocccceoncoun fun eeuteoceouceese 


eCopyrignte (Cl 1984 A.Avr'ane 


VDVSUSUN— 


1.4.J.:09/07/84 
19 sCreation: 21/04/84 


12 eParametres d’assembiage: 


13 PRSLOT o 1 siot impr: 
mante 

14 TWINLE . 1 saut de li 
gne interne 

13 Mx80 =” 0 modele de 
‘Epson 

lé #X82 _ 1 

17 MX100 - G 

18 

F9 #Constantes d'assemblage: 

20 00 MX90 

21 FrAXUIOTH = 80 colonnes 

22 FIN 

23 D0 MX62 

24 MAOUWIOTH = 109 

25 FIN 

24 00 MxX100 

27 MAXWIDTH = 136 

29 FIN 

29 

30 LGMSGO = a 

3t EGMSGI D 8 

32 L@4S6C2 Eh 4 

33 ESC - 27 

34 CI - ? 

33 CR - #80 

36 OEi. - s7F 

37 PAUSE = 27+380 escape 

38 ABORT - 03+%80 ctri-ce 

37 PRSLOT'2 = PRSLOT*#S1 0 

40 PRSLOT'3 = PRSLGT#6100 

ai 

42 radresses d’assemD! age: 

43 SAVGBASL. = $00 

44 GBASL. . +26 

43 CS - #36 

46 TRAP - 348 

47 CHRGET . sel 

48 CHRGOT 5 +67 

49 TXTPTR me seg 

sQ HPAG _ $Es 

S1 SOFTEY - 93F2 

52 AMPER - 93FS 

53 «KEYSDARO = #C000 

S4 STROGE = #Cco10 

35 FLUSH = 8C060-PRSLOT 2 

Sé6 CARDACX = $COCI +PRSLOT*3 

37 ERROR “ +0412 

58 CHKCLS = 20€88 

39 CHKCONM - +0EBE 

60 SYNERR os 30EC9 

él IEQTTERR = 2E199 

62 GSETOYTC = SEsFs 

63 GETGYT e sEéFG 

é4 HPOSr = sFaii 

63 PRet2 - F4 

éé SETPAURC = $FB6éF 
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67 CROUT = sF08E 
468 COUT - $FDEO 
69 COUFI - sFDFO 
70 OUTPORT = SFE?S 
71 
?7È 


73. emmener mme arm mme en 
74 #MAJ vecteur &, garde ancien 
PA 


77 auerifie vieuxenouveau, evite bouc 
es 


78 LOA  A4PER+1 

79 CMP  #<ENTRY 

80 BNE SETAMPER 

gi LDA AMPER+2 

82 CMP  WENTRY 

83 8EQ SETOQIE yes 

84 

83 eSauve ancien vecteur pour autres 2 
ppeis 

Sé SETAMPER LDA AMPER+1 save old 

@? STA  SAVAMPER 

8e LDA AMPER+2 

87 STA  SAVAMPER+ 1! 

90 «Met en place nouveau vecteur 

91 LDA ##4c *JmPp* 

92 STA AMPER 

93 LOA  #<ENFRY' 

94 STA A4PER+: set new 

LL] LOR  4JENTRY vector 

?6 STA AMPER:2 

97 SETOONE LDA #0 

94 STA TRAP dos bug 

9? RTS 

100 AST 70 

191 


102 smmmemmmmumesmmmamasmeasms 


103 seStockKage des variables 
CU 


105 

i06 *#Parametrest 

107 PARAM E . 
108 NEGATIVE DOF8 O0 
109 DSSTRIKE DF8 © 
110 ROTATI@N DF8 0 
111 FLIPFLAG DOFB © 
112 SIZE oF8 1 
113 S12E2 OF8 7 
114 TAB0 = e 
115 TAS3 0F8 0 
ilé TAB2 0FB 0 
117 TABI OF8 © 
118 SCRAMINH DFS8 © 
119 SCHEMAXH DF8 40 
120 SCRAMINU DFE O0 
121 SCREAXV DF8 24 
122 4FAG0 _ e 
123 HPAG3 0F8 90 
124 APAG2 OFB © 
125 HPAGI OF8 9 
126 NBOFLT _ e—-PARAM 
127 


128 #Drabeaux et compteurs programme: 
129 HORIZO+ DF8 
130 VERTICAL DF8 
131 VERTICAZ OF8 
132 PIXILHPOS 9F8 
133 P1XLUVPOS DFS 
134 MASKI F6 
135 MASK2 DF8 


0000000 


136 MATRIX 0F8 0 

137 SCRWIDTH DF8 0 

138 NBHPAG 0F8 © 

139 SAUEBYTE OF8 © 

140 TRANSIT2 OF8 0 

141 AST 70 
142 


1439 em emmener mn mener eee meme 
Lé4 sEntree &, verif syntaxe 





145 
laé EATRY - L 

147 CHP #s8A "PRE" ? 
148 8EQ ITSFORUS oui 

149 JMP (SAUAMPER) ancien & 
150 


Le] 


132 sinrtialise valesrs Dar defaut 





133 

154 ITSFORYS = e. 

135 LOX  #MBDFLT-I 

136$ INITDFET LD DEFAULT,X 

157 STA  PARAM,X 

158 DEX 

139 GPL  INITOFLT 

160 LDA #rk* simple den 
site 

1éi STA DUMPTYPE 

162 

163 





164 nAcaquisttion des commandes 


= 
D 
EL ] 


léé JSR  CHRGET 

167 LOY 4) 

168 BNE  REAONEXT jme 

169 READPARM = Li 

170 JSR CHRGET 

171 8EQ NOWEGO 

172 JSR CHKCOM che 
cK , 

173 REAONEXT LDOA N)READPARM-I 

174 PHA 

175 LOR M#CREADPARM-I 

176 PHa 

177 JSR  CHRGDT 

178 8EQ MHEREWEGO esl or : 

179 LBX #8 

180 NEXTPARF1 CI4P CYAORQME .X 

181 8SEQ PARMELINO 

1682 DEX 

183 Pt. NEXTPARM 

184 PLA 

185 PLA 

186 JMP  SYNERR error 

187 PARMFUNDO TXA 

188 ASE 

189 TAX 

190 LOA CMOAODDR,X 

191 PHa 

192 ir 

193 LDA CMDADDR,X 

194 PHa 

195 AaTS 

196 

197 HEREWEGO PLa 

78 PLA 

199 NOMWEGD = . 

200 


| 


202 werifie 1ongueu: < largeur imprma 


nte 
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éCalcule largeur d'un ecran 


CtD 
LDA  SCRNMAXH 
SEC 
S8C  SCRAMAINH catcul 
LOY ROTATION largeur 
BEQ GETT-\H0 ecran 
LDA  SCRAAXVY 
SEC 
SBC SCRNEAINU 
GETTAB9O STA SCRWIOTH 1-40 
LOX SI2€ 
GETTAB! DEX 
BEQ GETTAB2 
CLC 
ADC SCRWIOTH 
BNE GETTABI = jmo 
GETTA82 STA SCRUIDTH 1-160 
«MAJ NO matrices pour | ecran 
#(7 x Dixeis si rot=0, sinon B) 
STA MASK2 
STA PIXLNO2 
LDX "a 
SYX MASKI 
STX PIXLNOI 
LDX #2 
BIT DSSTRIKE #lash? 
BPL SETPIXLO no 
INx 
AS MASK2Z 
ROL  MASKI 
SETPIXLO ASI PIXLNO2 
ROL PIXENOI 
DEX 
BPL SETPIXLO 
DEY jrot=i? 
BPL  CHKTABU ou! 
SEC 
LDA PIXLNOZ 
S8BC MASK2 
STA PIXLNO2 
LDA  PIXLNOI 
S8C "ask 
STA PIXUNGI 
#uverifrie longueur et largeur imprtea 
ante 
CHKTABQ  LDA HPAGI 
BNE CHKTA8I defaut=hor 
1 
LDA #s20 
STA HPAGI 
CHKTABI CiC. 
LORA SCRUWIOTH 
ADC TABI 
ADC TAag2 
LDX HPAG2 
BED CHKTA82 nd 2eme 
A6C  SCRIJIDTH 
LOX HPAG3 
BEQ CHKTAB2 no 3eme 
ADC  SCRWIDTH 
CHKTABS2 BCC CHKTABSA < 235 
CHKTAB3 LDX #845 over+|ow 
JMP  ERROR 
CHKTABA CMP  MMAXWIDTHSI 
8CS CHKTAB3 


2 0 20 0 2 0 0 00 OU OU UE ON OO 0 
“Sauve page 1rero,csw,pile,reset 
ROM US NUE EE GRR UE POS DUR RU OR EN AU MEN EME DRE ME 


LDX ##9F 
SAVE LOR  SAUGBASL,X 
STA  SAVERREA ,X 
DEX 
BPL SAVE 
LDA CSu 
STA SAuCSu 
LDA CSWel 
STA SAVCSWu+r! 
LOA SOFTEU 
STA  SAURESET 
LDA SOFTEU+I 
STA SAURESET+1I 
TSX 
STX  SAUSTACK 
“AJ vecteur Reset 
LDR  MCRESET 
STA  SOFTEU 
LOA #RESET 
STA SOFTEV» 1 
JSR  SETPURC 
JSR FLIP 


a ———————————— 
+Confiqure Epson 
————_—_—_—__ 


LDR  #PRSLOT 
JSR OUTPORT P 
Réstot 
“ide buffer impranante: 
JSR PURGE 
#initialise snterface: 
LDY  #LGrSGO-1 
PRINT9 LDA MSGO,' 
JSR COUT 
DEY 
8PL PRINTO 
*Initialise linefeed: 
LDY *LG1SGI-1L 
PRIN(FI LON MSGI,Y 
JSR COUT 
OEY 
SPL PRINTI 





Va au dump norizontal/verticat 


LDA ROTATION 
BEQ DUMP! rot=0 
JSR OUMP2 rot=! 








#Sortie, restaure tout et quitte 








EXIT =” - 
LDX #sc0F 
eXIT'I LDA  SAVEARREA,X 
STA SAVGBASL,X 
DEX 
BPL EXIT'1 
JSR FLIP 
LDX SAVSTACK restaure p 
ile 
TXsS 
LOR  SAUCSW 
STA CSu 
LOR SAUCSW» 1 
STA CS! 
LOA  SAURESET 
STA SOFTEW 
LORA SAVRESET +1! 
STA SOFTEV+1 
JMP  SETPURC -> retour 
a l’apvel 
— 
#initialise imprimante pour graphiq 
ue 
= 
GRAPHICS = * 
#Pause ou abandon ? 
LOA  KEYBOARO 
BPL GRAFHICS 
STA STROBE 
CP  M#PAUSE 
BNE GRAPHICA 
GRAPHIC2 LDA KEYBOARO 
BPL GRAPHIC2 
STA  STROBE 
GRAPHIC4 CMP  NABORT 
8EQ EXIT 
GRAPHICS LDY  #LGMSG2-1 
GRAPHICSé LOA MSG2,Y 
JSR COUT 
DEY 
BPL  GRAPHICé 
RTS 
AST ?0 


LÉRRLLLLLLLLLLLLLLLLLLELLELLLLLLLEL: 
OUMP 1 _ à rot = 0 


LÉRERELLELLLEELELLLLLLLLELLLLLELL) 


*Ounp dejande = L to 3 
el ecran = 24 blocs de 8 
#1 bloc = 40 characteres 
*l characters = 8 matrice 
#1 matrice = 6 prxeis 


screens 
ti9nes 


——_—_—__— 
«Dump rotation normale: selectranne 
*ecrans: blocs de 8 lignes 





LDA 0-23 
asL 
AsL 
ASL 
TAY 


STY 


SCRNMINV 


VERTICAL 0-184 


eLigne superreure pour chaque bloc 
SCRNS'1 LOY VERTICAL 90-191 


402 


403 
404 
403 
406 
407 


408 
409 
410 
411 

ai2 

413 
al4 
415 
414 
417 
418 
4i9 


420 
42! 
422 
423 
424 


423 
426 


427 
438 
429 
430 
4as1 
432 


433 
434 
433 
436 
437 
438 
43° 
4aû 
441 

442 
443 
4a4 
445 
446 
447 


4a8 
449 
439 


4S1 

452 
453 
454 


455 
456 
457 


a38 
as59 
460 

aéi 

462 

a463 
464 
465 
aéé 
a67 
aé8 
469 
470 
471 

472 
473 
474 
475 
474 


a77 
478 
479 
480 
481 
482 
483 
484 
485 


48é 
487 


488 
489 


490 


STY VERTICAZ sauve lign 
+ super jeure 

TvA 

LSR 

ESR 

LSR 10-23 

CMP SCRAMAXU dernier bi 
oc ? 

8CcS EXIT oui 

LDY #0 

STY NBHPAG 
#Prend 1 ecran, place Tab 
SCRN8S°2 LOX Ta89.v y=nbhc ag 

8EG SCRNg°'S pas de Tab 

JSR PRBL2 Print 
SCRN9°5 LDX HPAGO,Y y=nbhpag 

8EQ SCRNB°7 pas | ecra 
n 

STX HPAG 

DEY ÿ Premier ecran ? 

BMI SCRNB°4 ous 

LOA VERTICAZ 

STA VERTICAL restaure | 
19ne superieure 


*Saisit et sauve adresse base pour 
chaque bioc 


SCRANS'°4 LDA VERTICAL 0-191 

INC VERTICAL 

PHA 

LOX #0 

LOY #0 

JSR HPOSN -) GSASL « 
adresse base pour ligne) 

PLS 

AND  SIZE2 7:3,1 

asSL 

TAX 

PHA 

LDOA GBASL 

AOC  SCRAMINH carrym0 

STA SAVGEASL,X 

INC 

LoOn GBASL»1I 

STA SAUGBASL,X 

PLA 

LSR ;0-7 

CMP  SI2E2 derniere | 
igne du groupe ? 

HCC SCRN9'é non 
#Ounp du Dloc, PRIT CR, va à la su 
ite 

JSR LINES 
SCRN8°7 INC NSHPAG 

LOY NSHPAG 

CPY #3 dernier ec 
ran fini ? 

8cc SCRN9g°2 nc 

JSR CROUT 

JMP  SCRNS°1 va au Dioc 

suivant 

© ————— —— — 


#*Sort le caractere forme Par & 
*pixels horizontaux par bloc 


LINES - . 
JSR GRAPHICS 
#Yprifie fin de bloc 
LDY  SCRAMINH 0-39 
DEY 
STY HORIZON set htao 
LINES*2 INC HORIZON 
LOY HORIZON 
CPY  SCRAMAXH 1-40 
8cs CraRg°3 sortie 
JSR CHARS 


“MAJ adresse du groupe de Bx8-pixel 


L2 
LDX #ié-2 
LINES “3 INC SAUVGBASL,X 
DEXx 
DEX 
SPL LINEU-3 
…*#doucle sur l’actet HTAB suivant 
8mI LINES”2 =)mp 


#Selectionne la matrice du characte 


— 
CHARS » e 

LOR #/00900001 MAJ compte 
ur 


STA  PIXLHPOS 
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491 CHAR8 "2 JSR PIXLS9 594 ASL éäi PHP 
a92 crc Sa3 ADC  SAVEBYTE c=0 682 ROR SAVEBYTE 
493 ROL PIXIAPOS derniere m 596 AOC  TRANSIT2 683 DEX 
atrice ? 527 Ast 684 8PL SaP7°2 
494 8PL CHARB "2 non sé8 TAY 68 PLP 
495 CHARS" 3 RTS 599 LORA MASKTABL-L6,Y saisie 684 PLA 
496 s90o STA MASKI masques 487 PHA 
49? s91 8ea COL?°I Beme=ler 688 Tax 
498 eDump 8 pixels des 8 lignes s?2 INY 689 DEY 
GP D eme man nee RM SEE SN EME MURS s93 Lo MASKTABL.-16, Ÿ: 690 BPL LAP7* 1 
500 PIXLS8 = . s94 STA MASK2 491 P LA 
30: LDX #0 s9s LOY #0 692 LDA SAVESYTE 
302 STX MATRIX initialisa s6 STY NBHPAG 693 STA MATRIX 
tion s97 494 
303 LDA #80 398 eSaisit { ecran et nnprime Tab 693 +Permute les bits de la matrice 2 P 
504 STA PIXLUPOS s99 COoL7*3 LOX TASO,Y y=nbhpag our 2 
305 PIXLS*‘1 LDA SIZE 1,214 400 BEQ COL7°4 7° 
s06 STA  SADEBYTE 501 JSR  PRBL2 SE ee AE 
S0? ég2 COL7"4 LOX MPAGO,Y r#nbhpag 698 PIXL7*2 ROL MATRIX 
$08 PIXLB"2 LDA (SAUGEASL,X) saisie O0 403 8Ea COoL7°7 699 PMP 
ctec 604 STX MHPAG 700 DEX 
309 AND PIXLHPOS selectionn 408 701 BNE PIXL7*2 
e Dit, sgnore la couleur 606 JSR LINE? 702 LOX #8 
310 BEO PIXL9-3 é07 COL7°7 INC NBHPAG 203 PIXL?°3 PLP 
sil Loan  PIXLUPNS 608 LDY NGHPAG 704 ROL MATRIX 
s1i2 ORA MATRIX MAJ matric 609 CPY 43 dernier ec 705 DEX 
. ran execute ? XL7° 
313 STA MATRIX au gcc COL7*3 non Lee re RE es sc tré 
514 ét 
S1S PIXLE"3 LSR PIXLUPOS 612 JSR  CROUT 0 RAT :70 
fois el OA NTRENSLTE 711 Commandes des Parametres 
517 DEC SAVEBYTE verifie di éts CMP SIZE 712 memes 
mension élé BÇC Ccot7°2 713 HGR - e 
s18 8EQ PIXL8-4 617 BCS COL7‘I jme 22 LOY ar 
s19 BE PIXLE"2 =Jmp é18g COL7°9 RTS sortie 715 CDR CTXTPTRE ,Y 
520 PIXL9"4 In 619 746 CMP n°3° hgr3 ? 
s2i IX 20 em====2222-2mmm mm mem RMS 717 PHP 
522 BNE PIXLa"1 imp 621 *Dumo toutes lignes pour 1 colonne | ,,, LOA  #820 
520 AST 70 O22 === 2eme 719 PLP 
s24a 623 LINE7 - e 220 SNE HGR-6G0 
LD mm mm MMS MEME MESSE mn é2a JSR GRAPHICS 721 JSR CHRGET 
526 *Envoi au port 1/0 de l’imprimante 625 LDR  SCRMMXV 1-24 722 LDA #60 
S27 eme me en ne RE SOS MEME MERE MESSE MERE MS 626 Ast 723 ONE HGR°6G0 Jmp 
528 DELIVER LDA DBSTRIKE 0,80 62? ast 523 Hor2 ns : 
529 ASL jmet carry à 1 si Fla | 628 asc 725 LDA #s40 
sh 829 STA VERTICAL B-192 226 UGR-CO  LOX HPAG2 
530 LDA SIZE 1,24 630 LIME7-2 DEC VERTICAL 57 SX HPAG3 
s31 BCC DELIVER2 431 LDA VERTICAL saisie lr9 | 222 LOX HPAGI 
532 ASL 12,4,8 Fe 729 STX HPAG2 
333 DELIVER2 TAX 632 LDX #0 20 STA HPAGI 
534 DELIVER3 LDA MATRIX 633 LOY #0 731 RTS 
335 £ÉOR NEGATIVE 634 JSR HPOSN > 6BASL 232 
334 DELIVER4 BIT CAROACK 633 JSR  SYTE7 dumo 1 Tab | LS ag a e 
337 SMI  DELIVERS sroEigne 734 JSR GETEYTC | 
338 STàA  FLUSH 636 LOR SCRAMITA 0-23 733 CPX  AXUIDTH 4 
339 Dex 637 AsSt 736 BCS PAR-KO | 
s40 ONE  DELIVER3 638 ASL 737 TXA + 
341 RTS 629 ASE 738 LOX TAB2 n 
s42 AST 70 640 CO1P VERTICAL derniere 1 | 739 STX TAG3 LE 
543 one? 740 LDX  TABI 3 
L'URL EZLLLLELLELELLELLLLLLLLLLLLLLLE) éai BME LINE7°2 non 741 STX TAg2 K 
345 DUMP2 . s not ml 642 RTS 742 STA TABI + 
CYVARLZLLIZLLLLZLLLILZLL22221122121221222) 643 743 JSR CHKCLS ue | 
547 44 tune | 794 JMP DECRTFXT 4 
349 eOump demande = 1 à 3 ecrans nes 74as : 
549 «1 ecran = 40 biocs de colonnes 645 aSaisie octets pour | tab sur ! col 746 INWERSE = + @ 
sS0 #1 bloc = 192 groupes de Figne onne 747 LOA WSFF 2 
351 #1 groupe de ligne = 2 octets 64 mms 2) STA NEGATIVE SFF . 
3SS2 +t matrice = 8 pixels > | octet ms 749 RTS d 
333 647 GYTE7 = » 730 FLASH - e 
RO DE é48 LDY HORIZON ler octet 7%1 LDA #90 
533 eBoucle sur les coionnes 449 LDA (GB8ASL) ,Y 792 STA DSSTRIKE 
SN 430 AND  MASKI 792 LA #“L* 
ss7 LOY SCRAMINH 0-3? Er STA SAVEBYTE 734 STA DUMPTYPE 
330 Des 632 INY 733 RTS 
35? STKANORIZON 433 LOA (GBABL).Y 2eme octet | 736 
560 C7 1 LDY #0 654 AND MASK2 737 ROT - . 
$6t STYS TRANSITZ 455 STA MATRIX 738 JSR  GETSYTTC 
5462 INC HORIZON ésé 739 CPX a 
563 CoL7°2 LOA HORIZON 4657 Matrice inversee des octets 760 BCS fPar+ko0 
Séa OP  SCRMAXH derniere T ése TSX ?é61 CPX #2 
ao ce . 639 LOA MaSKI 762 BCC ROT-2 
565 8cs CoL7"9 oui:s0rtie | 660 MERGE7*1 ASL SAVEBYTE 763 LDA 380 
Séé MAJ masques pour Tabs courant et # | éé: PHP 764 STA FLIPFLAG 
uivants 
567 AND  SI2E2 modulo 8,4 | 463 BCC HERGE7* e Dex 
2 é44 PLP 767 ROT“2 STX ROTATION 
D STA SAVEBRYTE 0-7/3/1 éés ROL  rTRIX 3 Le Me LECRTXT 
G 646 CMP 0 769 PARM°KO PLA 
570 LOA SIZE Lr229 867 ONE MERGE7"1 770 PLA 
s7: CMP #4 668 TXS 771 PLA 
372 BME COL7°20 649 772 PLA 
573 LOR #3 670 sEtend matrice #1 taille large 773 JMP  ILOTYERR illegal qu 
574 COL7°20 PHa 671 LDX SIZE 1,2:4 anti ty 
373 TaY 472 DEX 774 
3576 COL7-21 DEY 673 BEQ PIXL7"1 775 SCALE - LA 
327? 8EQ COL7-22 674 DR } 1,3 776 JSR GETBYTC 
579 ASL SAVEBYTE 675 PHA 77? CPX «5 
379 BPL Coc7°21 =Jymp é7é6 ECR #7/00000010 778 BCS PAR KO 
580 677 TAY _: 3,1 779 CPX 43 
Sei COL7*22 PLA 11,2,3 673 SWAP7"{ LSR MATRIX 780 8ÉQ PARMKO 
382 Ast 679 PHP 7gt STX SI2E 
383 ASL 690 SWAP7°2 PLP 782 #Determine size2 (pour rot=0) 


. CS M ER. 
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783 LRA #15 

?84 STA 51262 

783 TXA 

786 SCALE‘2 LSR SIZE? 7,341 

787 LSR 

788 BNE SCALE"2 

789 BEQ CARM'x mp 

790 

791 SCRN - . 

792 JSR GETSYTC 0-39 

793 STX SCRAMINH 

794 STX  SCRWIOTH 

795 ISR CHK«COM 

794 JSR GETAYT 1-40 

297 Txa 

7°9 BEQ PARM'K0 maxh=0 

799 CPx «al 

806 BCS PAarm'KD maxh40 

801 CPX  SCRWIDTH 

802 BCC Parm-Kk0 max MIN 

293 BEU 24m" KQ max Næi air 

804 STX  SCRRTIAXH 

803 

80o JSR CHKCOM 

80? JSR GETBYT 0-23 

808 STX  SCRPMIAR 

809 STX  SCRWIDTH 

8i JSR ChHKCOM 

gi1 JSR GETBYT 1-24 

ai2 TXA 

313 BEO PART KO maxu=0 

814 CPX #25 

813 BCS FARM'K0 maxv)>24 

814 CPX  SCRUIDTH 

81? BCC PARM'K0 maxv(ininu 

818 BEQ PARM-KO maxveminv 

89 STX  SCRAMAXU 

820 JSR CHKCLS ) 

821 

922 DECRTXT » . soustrait 

823 ELDX TXTPTR 1 de 

324 PHP ss tetptr 

825 DE 

826 STX TXTPTR 

827 PLP 

828 8NE ODECRTXT2 

e29 DEC TXTPTRe! 

830 DECRTXT2 RTS 

831 AST 70 

832 

833 

834 Rappel des commandes 

93 cmmsmmmmmmmmmmmmmm 

836 HELP - . 

837 LDY #0 

838 HELP2 LDA MSOHELP ,Y 

839 BEQ HELP3 

840 JSR COUT! 

841 INY 

842 BNE HELP2 æjJmp 

843 HELP3 PLA 

844 PLA 

Bas JMP  CHRGET 

844 AST 70 

647 

BR en sm 

849 «Reset: sortie d'urgence 

GSO emma mcm ME MES 

951 RESET - . 

852 JSR PURGE 

853 TSX 

854 STX  SAUSTACK 

8ss JSR EXIT 

856 JMP  (SAURESET) retour au 
Reset normal] 

6$7 PURGE - - 

858 Vide le buffer de l’ imprimante 

859 LDA #0 

860 Tax 

861 TAY 

862 LDA  #DEL 

863 PURGE®2 STA FLUSH 

864 DEX 

865 ONE PURGE *2 

8é6é DEY 

847 BNE PURGE”? 

848 RTS 

8é9 AaST 70 

870 

871 

872 

873 eFlip-élopt rotation ecran 

Récapitulation 


*9000 .8688 


8000- AD 
8008- 
8010- 
8018- 


36 


Fé 03 C9 4A DO 07 AD 
03 C9 80 F0 18 AO Fé 
8D 74 85 AD F7 03 80 
85 À9 4C 8D F5 03 A9 


F7 
03 
75 


970 m2 222RRmRSSSSeSSnsmmus 

37S #1 : PIXLHPOS 

876 2 = 21xLVPOS 

877 VI = MASKI 

878 V2 - MASK2 

879 FLIP - . 

880 BIT FLIPFLAG rot1? 

881 BPL FLIP°-9 nontsortie 

882 LDX A#3-! 

883 STX NBHPAB 

884 =L1?-9 LDX NEMPAG 

865 LDA  4PAGO,X 

384 8E€0 FLIP'7 inutilrse 

887 STA HPAG 

888 LDA 40 

889 STA 1] 

a9a LDA “191 

891! STA V2 

e92 

893 F1.1P-05 LDA #0 

894 STA Hi 

895 LDA 439 

896 STA H2 

897 LDA V1 

898 LDX nc 

899 LDY #0 

900 JSR HPOSr 

901 LDA GBASL 

902 STA SA/GBASL 

903 LDA GBASL+] 

9a4 STA SALGBASL +1 

905 LDA V2 

?06 LDX #0 

907 LDY #0 

908 JSR HPOSN 

9097 

910 FLIP "1 LOY Hi 

sit LDA (SAUGBASL) ,Y 

912 JSR FLOP 

913 PHA 

914 LDY H2 

915 L (GB8ASL ),Y 

Fié JSR FLOP 

917 LDY HI 

°t8 STA (SAUGBASL) ,Y 

919 PLA 

920 LDY H2 

921 STA <GB8ASL) .Y 

922 INC Hi 

933 DEC #2 

924 SPL FLIP-1 

923 INC V1 

926 DEC v2 

927 LDA V2 

928 CMP e25F 

929 BNE FLIP'03 

930 FLIP-7 DEC NBSHPARG *cran suiv 
ant 7 

931 SPL FLIP-0 

932 FLIP"8 RTS 

933 

934 FLOP - L 

933 LOX #8 

936 FLOP*] ROL 

F937 PHP 

938 DEX 

939 BNE FLOP*1 

9a0 LOX #7 

941 FLOP"2 PLP 

942 ROË 

943 DEX 

9aa BNE FLOP°2 

945 ROL 

946 PLP 

947 ROR 

94a RTS 

949 

SE (7 oo 

951 #Stockage des constantes 

PS2 emm=nmmmmmms mm mme 

933 

954 +Parametres Dar defaut: 

SES DEFAULT DF8 0,0,0,0.1,7.0.0.0.0,4 
0,0,24,0,0,0 

?sé 

PS7 +SauveSarde de l'environnement! 

958 SAVAMPER DA sFF358 

?39 SAVEARER DA 0,0.0,0,0.0.0.0 

P60 SAVC Su pa sFDF0 

Fét SAVRESET 94 sFFé9 

962 SAUSTACK DFB FF 

963 

8020- 44 8D Fé 03 A9 80 8D F7 

8023- 03 A9 00 85 48 60 00 00 

8030- 00 00 01 07 00 00 00 00 

8038- 28 00 18 00 00 00 00 00 

8040- 00 00 00 00 00 00 00 00 

8048- 00 00 C9 8A F0 03 6C 74 

8050- 85 42 0F BD 64 85 9D 2E 


963 #Constantes du Progranne: 
963 MASKTAEL = 
pour scale=1/2/4 


e de 0 à 1 4 


701111111,./00000001 
701111110,Z/00000011 
701111100,7;00000111 
Z01111000.7/00001111 
701110000,700011111 
Z01100000.:“00111111 
201000000,201111111 
0,0 

00001111./00000000 
Z01110000 
3:00011110 
%01100000,7/00000011 
Z00111100./00000000 
701000000,700000111 
Z01111000,/00000000 
0,0 

Z00000011,/:00000000 
Z00001100.:00000000 
200 1 10000 .::00000000 
701000000,7:00000001 
:-400000110,-00000000 
00011000 
81106090 ,/00000000 











0,0 

s91 HGR 

+90 GR 
sco TAB 
S9€ INVERSE 
S9F FLASH 
398 ROT= 
399 SCALE= 
507 SCRNC 
$6A 7? (PRINT) 
HGR-1 

HGR2-1 

TAaB-1 

INVERSE-1 

FLASH=1 

ROT-1 

SCALE-I 

SCRN-1 

HELP -1 


des commandes (nelp): 


eCodes de controle des 


966 DF8 
967 DF6 
968 DF8 
969 DF3 
970 DFB 
971 DFE 
972 DFB 
973 DFB 
974 F8 
973 DF8 
976 DF8 
977 oF8 
9?8 0FB 
929 OF8 
930 DEFB 
961 DF6 
982 DF8 
983 OF8 
994 DF8 
98s DFB 
P8é OF8 
997 OF6 
988 DF8 
989 2F8 
990 CMDNAME DFB 
991 9F6 
992 OF8 
993 DFB 
994 DFB 
995 DFB 
99é DFB 
99? DFB 
998 DF8 
999 CMDADDR ODB 
1000 DD 
1001 006 
1002 208 
1003 D08 
1004 008 
1005 DD8 
1004 DOB 
1007 008 
1008 
1009 sRapvel 
1010 MSGHELP = 
1011 oF8 
1012 IN 
MP +* 

1013 oFB 
1014 asc 
VRANE * 

1013 DFB 
10té INR 
1017 asc 
SHGR3]1° 
toits DFB 
1019 asc 
1020 DF8 
1021 ASC 
1022 DF8 
1023 asc 
1024 DF8 
1023 ASC 
1024 DFB 
1027 asc 

34" 
1028 DF8 
1027 
1030 
Epson : 
1031 MSGO - 
1032 OF8 
1033 msGi =” 
1034 20 
1035 DFB 
1036 ELSE 
1037 DF5 
1039 FIN 
1039 DFB 
ESC 
1040 S62 Li 
104: PTIXLNOI DF8 
1042 PIXENO2 DFB 
1043 DUMPTYPE DF8 
1044 DFB 
1045 
1046 SKP 
1047 LST 
1048 END 
8058- 80 CA 10 
8060- 86 20 81 
8068- 20 81 ü0 
8070- A9 80 48 
8078- 00 FO iC 
8080- F0 08 CA 
8088- C9 DE 68A 


CR,CR 
*eEPSON HGR SCREEN OU 


CR 
°[C1 1994 ALEXANDRE A 


CR,CR,CR 
*& PPu” 
* [TABCT)I [, HGR/HGR2 


* C,INWVERSE]* 
* LC,FLASHI* 


* C,ROT=0/11" 

CR 

“ [,SCALE=1/2/4]" 

CR 

* L,SCRNCCI,C2,LI Le 


CR,0 
tmiOrimantes 


- 
"N°,°0°,*8*,CI 
-. 


TWINLF 
3 


*Aa",ESC,"3°,ESC,0,"R" 


F7 
00 
FO 
A9 
A2 
10 
0A 


CB 
01 
20 
48 
DD 
68 
BD 
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8090- 
8098-— 
80 A0- 
80h8- 
8080- 
8088- 
80c0- 
80C8- 
8000- 


8120- 
8128- 
8130- 
8138- 
8140- 
8148- 
81 50- 
8158- 
8160- 
8168- 
8170- 
8178- 
8180- 
8188- 
8190- 
8198- 
8140- 
8148- 
8180- 
8188- 
81C0- 
81C8- 
8100-— 
8108- 
81E0-— 
81E8- 
81F0- 
81F8- 
8200- 
8208- 
8210- 
8218- 
8220- 
8228> 
8230- 
8238- 
8240- 
8248- 
8250- 
8258- 
8260- 
8268- 
8270- 
8278- 


48 
68 
80 


2F 


A2 
F7 
CA 
AS 
80 
8s 
F2 
6F 
95 
€ 
A0 
88 
20 
PS 
AE 
36 
85 
F3 
10 
08 
ca 
88 
60 
8c 
80 
80 
34 
38 
06 
3F 
A0 
80 
80 
68 
42 
Ca 
DB 
88 
3E 
64 
10 
80 
10 
A9 


8290- 80 45 80 4E 42 80 F0 08 8490- 46 80 90 9F F0 90 8E 3A 
8298- CE 48 80 F0 02 00 E4 E8 8498- 80 20 88 DE ÀAé 88 08 CA 
82A0- E3 D0 DA 4D 2F 80 OA AD 84A0- 86 88 28 D0 02 Cé 89 «0 
82A8- 32 80 90 0! 0A AA AD 45 84A8- A0 00 89 Ds 85 FO Os 20 
8280- 80 40 2E 80 2C Ci C1 30 8480- F0 FD C8 00 F5 68 68 4C 
8288- F8 80 90 C0 CA 00 EF 60 8488- 891 00 20 C7 84 BA 8E SA 
82C0- AC 37 80 88 8C 3€ 80 A0 84C0- 85 20 83 81 6C 88 85 A9 
82C8- 00 8C 49 80 EE 3€ 80 AD 84C8- 00 AA 48 A9 7F 80 90 CO 
8200- 3E 80 CD 38 80 80 65 20 8400- CA 00 FA 88 00 F7 60 2C 
8208- 33 980 80 48 80 AD 32 80 8408- 31 80 10 75 A2 02 8E 47 
82E0- C9 04 00 02 A9 03 4B AB 84E0- 80 AE 47 80 BD 38 80 F0 
82E8- 88 FO 0S 0E 48 80 10 F8 84E8- 63 85 Eé$ A9 00 80 43 80 
82F0- 68 0% 0A 0A 64D 48 80 60 84F0- A9 BF 80 44 80 «9 00 80 
82F8- 49 80 0A A8 89 78 85 80 84F8- 41 80 A9 2? 80 42 80 AD 
8300- 43 80 F9 C3 C3 89 78 85 8500- 43 80 A2 00 A0 00 20 11 
8308- 80 44 80 0 00 8C 47 80 8508- F4 ÀS 26 85 00 AS 27 85 
8310- BE 34 80 F0 03 20 4 F9 8510- 01 AD 44 80 A2 00 A0 00 
8318- BE 38 80 FO 05 86 Eé 20 8518- 20 11 F4 AC 41 80 81 00 
8320- 38 83 €E 47 80 AC 47 80 8520- 20 52 85 48 AC 42 80 81 
8328- CO 03 90 E4 20 8€ FD EE 9528- 26 20 52 83 AC 41 80 91 
8330- 49 80 AD 49 80 CD 32 80 8530- 00 6B AC 42 80 91 26 EE 
8338- 90 935 80 88 60 20 ADO 81 8S38- 41 80 CE 42 80 10 DC EE 
8340- AD 3A 80 0A 0AÀ 04 80 3F 8540- 43 80 CE 44 80 AD 44 80 
8348- 80 CE 3F 80 ADO 3F 80 A2 8548- C9 SF 00 A9 CE 47 80 10 
8350- 00 A0 00 20 ii F4 20 65 85$0- 90 60 A2 08 2A 08 CA 00 
83S8- 83 AD 39 80 0A OA 0A CD 8558- F8 A2 07 28 2A CA 00 F8 
8360- 3F 80 D0 E3 60 AC 3E 80 8560- 2A 28 6A 60 00 00 00 00 
8368- 81 26 20 43 80 SD 48 80 8S68- 01 07 00 00 00 00 28 00 
8370- C8 81 26 20 44 80 80 45 8570- 18 00 00 00 58 FF 00 00 
8378- 80 B* AD 43 80 0E 48 80 8S578- 00 00 00 00 00 00 00 00 
8380- 08 0A 90 F9 28 2E 45 80 8580- 00 00 00 00 00 00 F0 FD 
8388- C7 00 00 F1 94 AE 32 80 8588- 69 FF FF 7F 01 7E 03 7C 
8390- CA F0 1F 8A 48 49 02 A8 8S590- 07 78 OF 70 1F 60 3F 40 
8398- 4E 45 80 08 28 08 6E 48 8598- 7F 00 00 OF 00 70 O1 1E 
83A0- 80 CA 10 F8 28 68 48 AA 8SA0- 00 60 03 3C 00 40 07 78 
83A48- 88 10 ED 68 AD 48 80 80 85A8- 00 00 00 03 00 OC 00 30 
8380- 45 80 18 A2 08 2E 45 80 8580- 00 40 01 06 00 18 00 60 
8388- 089 CA 00 F9 A2 08 28 2E 8588- 00 00 00 91 90 CO 9E 9F 
83C0- 45 80 CA 00 F9 4C A3 82 85C0- 98 99 07 BA 83 C7 83 DA 
83C8- A0 01 81 88 C7? 33 08 A9 8SCS- 83 EC 84 09 84 OF 84 IA 
8300- 20 28 00 09 20 81 00 A9 8500- 84 39 84 $5 84 A7 80 80 
8308- 60 00 02 A9 40 AE 3C 80 8508- 2A 20 03 10 13 OF 0E 20 
83E0- 8E 38 80 AE 30 80 8E 3C 8SE0-—- 08 07 12 20 13 03 12 0S 
83E8- 80 80 30 80 60 20 FS Ed 85E8- 0S 0E 20 04 15 00 10 20 
83F0- E0 64 80 3F 8A AE 35 80 8SF0- 24 80 DB C3 DD A0 81 89 
83F8- 8E 34 80 AE 36 80 8E 35 85F8- 88 84 A0 Ci CC CS 08 C1 
8400- 80 80 36 80 20 B8 DE 4C 8600- CE C4 02 CS A0 C1 Dé D2 
8408- 9C 84 A9 FF 80 2E 80 60 8608- Ct CE CS 80 80 80 26 20 
8410- A9 80 80 2F 80 A9 CC 80 8610- 10 12 23 AO DB D4 C1 C2 
8418- 8 86 60 20 F5 Eé EO 04 8618- A8 D4 A9 DD A0 D8 AC C8 
8420- 80 ii E0 02 90 07 A9 80 8620- C7 D2 AF C8 C7 02 82 ÀF 
8428- 80 3: 80 CA CA 8E 30 80 8628- C8 C7 D2 83 00 80 40 AO 
8430- 4C 9C 84 68 68 68 68 4C 8630- DB AC C9 CE Dé CS 02 03 
8438- 99 Ei 20 F5 Eé E0 05 80 8638- CS 00 80 A0 A0 08 AC Cé 
8440- F2 E0 03 F0 £E 8E 32 80 8640- CC C1 03 C8 DO 80 A0 A0 
8448- A9 0F 80 33 80 SA 4€ 33 8648- 08 AC 02 CF 04 80 B0O AF 
8450- 80 44 00 FA FO DA 20 F5 8650- 81 D0 80 A0 AG 08 AC 03 
8458- Eé 8E 37 80 8E 46 80 20 8658- C3 Ci CC CS 80 Bt AF 82 
8460- BE DE 20 F8 Es 8A F0 C8 8660- AF 84 DO 80 A0 A0 08 AC 
8468- E0 29 80 C7 EC 46 80 90 8668- 03 C3 02 CE A8 C3 81 AC 
8470- C2 FO CO 8E 38 80 20 8€ 8670- C3 82 AC CC 81 AC CC 82 
8478- DE 20 F8 E$ SE 39 80 8€ 8678- A9 00 80 00 CE B0 B8 09 
8480- 46 80 20 BE DE 20 F8 Eé 8680- 04 C1 18 CO 18 00 02 18 
8498- 8A F0 A8 E0 19 80 Ad EC 8688- 00 00 C8 18 


Editeur plein écran : EPÈ 


Le Pacha Apple +, //e //c 


Listez vos programmes Basic en avant et en arrière. 
Modifiez. insérez. effacez des carectères en plen 
écran sans relire les lignes. ‘ 

Recherchez toute chaine de caractères. 

Choisissez vous-même les codes de conträle d'EPE. 


Mogirlez EPE : le fictier source est sur la disquette. 


150,00 F TTC franco (bon de commande page 74). 





sont des marques déposées d'Apple Com puter, Inc 


Apple et le logo Apple 


Puisque nous ne 
vous aviez besoin, nous 


l ' 





[//A 


ER EE ee | 


Version Call 


EE S CS 


EE | 


= 5 nr 

RS TV SMALL: IEMRENS END 

EE 
| 


Un clavier 63 touches type AZERTY comprenant une accentuat'on complète et des 
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Une des plus grandes bibliothèques de logiciels 
programmes compatrbles avec l'Apple Ile : jeux, 
gestion de base de données, analyse financière, 


Voicicomment 
l'écran de haute 
très facilement 
Si nous vous 
autant demémoire 
en un seul appareil 
étaitindispensable. 


savions pas de quoi 
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els au monde; 16.008 Voici 8 exemples de ce que vous pouvez afficher sur votre 

ux, Wäitement de texte, écran. 8 parmi 16.008 ! à vou de découvrir les autres. 

re, planification. Lorsque vous aurez essayé l'Apple IC vous ne regretterez pas 
- notre générosité. 
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s avons donné autant de place, autant de beauté, 
ire (128K0o), autant de possibilités 
‘el Cest que cla 

le. 








Catalogue sur Imprimante 


Jean-Luc Bazanegue 


Nos précédents articles destinés aux 
utilisateurs du Macintosh portaient 
essentiellement sur le graphisme. 
Nous nous sommes cette fois penché 
sur la gestion des disquettes et, plus 
généralement, sur les entrées/sorties 
du Macintosh. Pour illustrer le fonc- 
tionnement de certaines routines du 
système, nous avons écrit un pro- 
gramme qui permet d'obtenir simple- 
ment sur imprimante un catalogue 
complet de n'importe quelle dis- 
quette En effet, si le “finder”’ auto- 
rise la visualisation du contenu d'une 
disquette, il ne permet pas un report 
aisé sur papier et, de plus. l’utilitaire 
en question nous cache plusieurs in- 
formations intéressantes 


Mode d'emploi 


Le programme est écrit avec la ver- 
sion 2 du Basic Microsoft. Toutefois. 
les explications qui vont suivre per- 
mettront à ceux d'entre-vous qui ne 
possèdent pas encore cette version 
de l'adapter au “vieux” Basic. 
L'utilisation du programme est très 
simple et ne demande que très peu 
d'explications. Le menu ‘’catalogue” 
permet d'obtenir les informations sur 
les fichiers soit sur imprimante. soit à 
l'écran, fichier par fichier. 


Macintosh 128K 


Avec ce modèle, l'impression ne peut 
se faire qu'en qualité “brouillon”. Si 
une autre option est demandée, le 
programme ne se. ‘’plante” pas, maïs 
passe à l'instruction suivante après 
quelques instants d'hésitation. Pour 
le reste, le fonctionnement est le 
même sur une version 512K ou 
128K, mise à part la vitesse d’exécu- 


tion, sensiblement moins élevée sur 
un 128K. 


Informations fournies par le 
programme 


Comme il! est inutile d'indiquer. par 
exernple, ce que veut dire nombre 
de fichiers sur la disquette”. nous ne 
parlerons ici que des informations 
dont la signification n'est pas évi- 
dente. 


Informations sur 
(volume) 


la disquette 


Protection logicielle : il s’agit d'un in- 
dicateur dans le catalogue de la dis- 
quette, auquel l'utilisateur n'a norma- 
lement pas accès. Lorsque cet 
indicateur est positionné. il n'est plus 
possible de modifier le contenu de la 
disquette, tout comme avec la pro- 
tection mécanique située sur le bof- 


tier de la disquette 


Protection matérielle : la protection 
mécanique contre l'écriture citée ci- 
dessus. 


Premier bloc du catalogue : le nu- 
méro indiqué correspond au premier 
des blocs logique {512 octets} conte- 
nant les informations sur les fichiers. 
C'est dans cette zone que notre pro- 
gramme va chercher les informations. 


Nombre de blocs sur la disquette 
(sauf blocs du catalogue). cette va- 
leur varie en fonction de la taille des 
blocs. 


Nombre d'octets par bloc : générale- 
ment 1024 octets. 


Nombre minimum d’octets succes- 
sifs: zone physique minimale pour 
que le système alloue un bloc à un 
fichier. 


Premier bloc alloué 
occupé par un fichier. 


premier bloc 


Premier numéro de fichier disponi- 


ble : le numéro qui sera athibué au 
prochain fichier créé. La valeur indi- 
quée correspond rarement au nom- 
bre de fichiers présents sur la dis- 
quette + 1. Ceci est dû au fait que la 
destuction d’un fichier n'entraîne 
pas la mise à jour des numéro de fi- 
chiers. Ainsi, s’il y a 4 fichiers sur la 
disquette et que nous détruisons le 
quatième. k prochain fichier créé se 
vera affecter 5 comme numéro, le 
numéro 4 n'étant plus utilisé. 


Informations sur les fichiers 


Type : indique le type de fichier qui 
peut être, par exemple, *TEXT"” 
pour un fichier créé à partir du Basic, 
ou encore ‘APPL” pour un pro- 
gramme d'application. 


Auteur : ceci peut être les initiales du 
créateur du programme. mais il s’agit 
beaucoup plus souvent d'une abré- 
viation du nom du programme d'ap- 
plication qui a généré le fichier. Ainsi, 
un fichier de caractères issu de ‘Font 
Mover” contient "FMOV” dans cette 
zone: si on remplace ”FMOV” par 
autre chose, “Font Mover” ne recon- 
naît plus son enfant 


Données et ressources: les fichiers 
du Mac sont divisés en deux zones : 
une partie “données” et une partie 
ressource”. Un document MacWrite, 
par exemple, sauvegardé avec l’op- 
tion ‘le document entier”, contient 
dans la partie “données”. le texte 
proprement dit, alors que la partie 
ressource” contient les informations 
sur les polices de caractères, les 
règles, etc. Certains fichiers n'utili- 
sent que la partie données” (un fi- 


chier "TEXT” créé à partir du Basic), 
d'autres seulement la partie ressource 
(le Basic Microsoft par exemple). 
Lorsque qu'une des deux zones n'est 
pas utilisée, le programme affiche 
"0" pour le premier bloc. 


Bundle : nous avons laissé le mot an- 
glais car tas” ou ”paquet” ne nous 
semblait pas très élégant. Ce terme 
est affecté au fichier regroupant plu- 
sieurs ”sous-fichiers”. c'est le cas du 
fichier système et de la plupart des 
programmes d'application. 


Le programme 


La seule difficulté rencontrée pour 
l'écriture de ce programme était 
d'obtenir les informations situées sur 
la disquette, ce qui est impossible 
avec seulement le Basic. Nous avons 
dû faire appel à quelques routines 
faisant partie du système de gestion 
de disquettes du Macintosh. Les ex- 
plications qui vont suivrent porteront 
donc essentiellement sur l'utilisation 
de ces routines. 


Lecture des informations sur 
le volume 


L'instruction FILES$. légèrement dé- 
toumée de son utilisation normale, 
retoume dans F$ le nom du volume 
(ia disquette) survi de ‘:” et du nom 
du fichier sélectionné. Dans le cas 
présent. seul le nom du volume nous 
intéresse. Pour conserver unique- 
ment ce nom. il suffit de repérer je 
séparateur, l'instruction LEFT$ fait le 
reste. On peut noter que lon 
conserve dans la nouvelle chaîne le 
séparateur, indispensable à la routine 
permettant de lire les informations 
sur le volume. On appelle ensuite la 
routine en langage machine VO- 
LUME. dont le point d'entrée 5e 
trouve dans le 75ème élément du ta- 
bleau de variables entières C, en lui 
passant comme argument l'adresse 
où se trouve. dans l'ordre, deux 
octets contenant la longueur de la 
chaîne F$ et trois octets contenant 
l'adresse du premier caractère de la 
chaîne (voir l'article "CALL : exem- 
ple d'application”. dans le numéro 
16 de Pom's). 


Nous sommes maintenant dans la 
routine en langage machine. Après 
avoir fait la liaison indispensable lors- 
qu'il y a passage de paramètres. 
nous chargeons l'adresse de base du 
tampon TABLE (84 octets) dans le 
registre d'adresse AO (pour toutes les 
routines d'entrées/sorties, il faut ré- 
server un tampon de mémoire, 
pointé par AO au moment de Fap- 
pel). On fait ensuite une copie de AO 
dans Al, qui va nous servir comme 
pointeur pour mettre à zéro le tam- 
pon TABLE. A la ligne 6, on charge 
la valeur 20, ce qui correspond au 
nombre de longs mots {4 octets) 
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moins un, dans le registre de don- 
nées DO. La boucle BINIT met à 
zéro quatre octets à chaque tour, ceci 
en partant de l'adresse de base du 
tampon. jusqu'à ce que le contenu 
du registre DO soit égal à —1. Cette 
petite manoeuvre n'est pas indispen- 
sable lors de la lecture des informa- 
tions sur le premier volume, puisque 
le démarrage de l'exécution du pro- 
gramme Basic remet à zéro le ta- 
bleau de variables C qui contient le 
tampon TABLE. par contre. si on ne 
le vide pas pour les lectures suivan- 
tes. le fonctionnement de la routine 
serait perturbé. 


Nous chargeons. à la ligne %, 
l'adresse de base du tampon de mé- 
moire NOM”. destiné à recevoir le 
nom du fichier, dans le registre 
d'adresse A2. et nous en faisons une 
copie dans l'adresse pointée par A0 
+ 18 L'adresse où se trouvent les 
informations sur la chaîne F$ est, 
depuis le CALL. dans la pile dont le 
sommet est pointé par A6 (voir nu- 
méro 16). Entre notre adresse et le 
sommet de la pile. nous trouvons 
dans l’ordre l’ancienne valeur de A6 
(4 octets) et l'adresse de retour au 
Basic (4 octets); l'adresse des infor- 
mations sur la chaîne est donc à 8 
octets de l'adresse pointée par A6. 
MOVE. S&({A6)AL effectue une 
copie de l'adresse en question dans 
le registre A1 Nous avons vu précé- 
demment que les informations sur la 
chaîne débutent par deux octets indi- 
quant la longueur de cette dernière, 
or, un nom de volume contient au 
maximum 28 caractères ce qui fait 
que seul le second octet est signifiant 
dans le cas qui nous intéresse au- 


jourd'hui  MOVEB  l(Al)(A2)+ 
place une copie de cet octet dans le 
premier octet du tampon NOM 


pointé par A2 le registre A2 est 
auto-incrémenté et pointe maintenant 
sur le second octet du tampon NOM. 


À la ligne 13. on place dans le regis- 
tre D2. en allant du poids fort au 
poids faible, l'octet contenant le 
nombre de caractères et l'adresse de 
la chaîne sur trois octets. L'instruc- 
tion ANDIL #$00FFFFFE,D2 force à 
0 les 8 bits de poids fort de D2, ce 
qui nous permet d'obtenir une 
adresse valide. On fait une copie du 
registre D2 dans le registre d'adresse 
A3 (le 68000 ne permettant pas un 
AND’ avec un registre d'adresse, 
nous sommes obligé de passer par 
un registre de données. 


La boucle des lignes 16 à 18 fait une 
copie de la chaîne, sans se soucier 
de sa longueur, depuis sa position 
initiale vers le tampon NOM. Enfin, 
on décrémente le mot pointé par A0 
+ 28 de 1, qui passe de O à $FFFF 
soit, en complément à deux, une va- 
leur négative. 
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Nous pouvons maintenant appeler la 
routine du Macintosh qui permet de 
lire les informations sur la disquette. 
nous l’appelerons INFOVOL. Pour 
appeler la routine INFOVOL. il faut 
introduire dans le programme le 
code illégal $SAOO7 (voir Pom's 16 
"Appel des routines en ROM”). 


Avant d'étudier les informations re- 
tournées par la routine, une petite ré- 
capitulation s'impose. Avant d'appe- 
ler INFOVOL, il faut avoir dans un 
tampon pointé par A0: 

18(A0) : l'adresse (32 bits) où se 
trouve un octet contenant le nombre 
de caractères dans la chaîne, suivi 
des N caractères la constituant, y 
compris le ”:". 

28(A0): une valeur négative sur 
deux octets. 


ci est la méthode employée par notre 
programme pour indiquer le volume 
à la routine Cependant, il existe 
d'autres possibilités : si AO + 28 est 
positif, la routine utilise cette valeur 
(qui correspond à l'ordre d'insertion 
des disquettes dans le ou les lecteurs) 
pour déterminer le volume. Si AO + 
28 est négatif, la routine utilise le 
nom du volume, dont l'adresse est 
dans AO + 18 (c'est le cas de notre 
programme). Si AO + 28 est égal à 
0. la routine utilise le numéro de ré- 
férence de la disquette, situé en AO 
+ 22. 


Informations retournées 
par INFOVOL 


Les infonnations sont retoumnées 
dans le même tampon que celui qui 
nous a servi pour l'appel de la rou- 
tine. Nous y trouvons : 


16(A0) : un code d'erreur sur deux 
octets. Cette zone est à zéro si tout 
c'est bien passé. 

18(A0) : l'adresse (4 octets) du nom 
du volume. 

22(A0): le numéro de référence de 
la disquette (2 octets). 

30(A0) : la date et l'heure de créa- 
tion du volume, sous la forme de 4 
octets contenant le nombre de se- 
condes écoulées depuis le ler janvier 
1904 à 12H00 ! 

84(A0) : la même chose, mais cette 
fois pour la date et l'heure de la der- 
nière modification. 

38(A0): un indicateur sur deux 
octets. Si le bit 15 (poids fort) est à 
1. la disquette est protégée par logi- 
ciel. Si le bit 7 est à 1, la protection 
mécanique contre l'écriture est utili- 
sée. 

40(A0): nombre de fichiers sur la 
disquette (2 octets) 


42(A0): premier bloc du catalogue 
(2 octets). 

44(A0): nombre de blocs de 512 
octets dans le catalogue {2 octets). 
46(A0). nombre de blocs sur la dis- 
quette (ne comprend pas les blocs 


du catalogue) sur 2 octets. 

48(A0): nombre d'octets par bloc 
(sauf pour les blocs du catalogue) sur 
4 octets. 

52(A0) : nombre minimum d'octet 
successifs pour que le système alloue 
un bloc à un fichier (4 octets). 
56(A0) : premier bloc alloué à un fi- 
chier (2 octets). 

58(A0) : premier numéro de fichier 
disponible (4 octets). 

62(A0) : nombre de blocs non utili- 
sés. 


Lorsque nous retournons au Basic, 
l'exploitation de ces données ne po- 
sent pas de problème puisque le 
tampon TABLE de la routine en lan- 
gage machine se trouve en fait au 
début du tableau de variables C, qui 
contient aussi le tampon NOM et la 
routine en langage machine. 


Notre programme Basic doit exploiter 
des valeurs non signées retournées 
par une routine en langage machine; 
il faut donc prendre quelques pré- 
cautions. En effet, les valeurs conte- 
nues par des variables entières sont 
exprimées en complément à deux et 
peuvent être à l'origine d'erreurs lors 
du calcul, par exemple, d’une don- 
née ou adresse sur 32 bits, si une va- 
riable ent'ère contient un nombre su- 


périeur à $7FFF (32767), donc 
négatif. 

À une expression du type : 

VALEUR! = AIN) x 65536 
+A%(N+1) 


on préférera : 


AI = VARPTR(A%(N)) 

VALEUR! = PEEK(A!) » 16777216 
+  PEEK(A! + 1) x 65536 
+PEEK(A! + 2) x 256 + PEEK(A! 
+ 3) 


Lecture des informations sur 
les fichiers 


Grâce au travail effectué par la rou- 
tine INFOVOL, l'obtention des infor- 
mations sur les fichiers va être gran- 
dement simplifiée. 


Le tampon TABLE contient, depuis 
appel de la routine INFOVOL, le 
numéro de référence de la disquette 
(1 pour le lecteur interne. 2 pour le 
lecteur externe} dans AO + 22: nous 
n'avons donc pas à nous soucier de 
ce paramètre. Le seul paramètre à 
passer à la routine en assembleur FI- 
CHIERS est le numéro du fichier. 
compris entre 1 et N, où N est la va- 
leur retournée dans AO + 40 par la 
routine INFOVOL. Après avoir dé- 
placé N depuis la pile vers AO + 28, 
et placé dans AÜ + 18 l'adresse à 
laquelle sera reporté le nom du fi- 
chier, nous appelons la routine qui 
pennet d'obtenir les informations sur 
les fichiers (que nous baptisons IN- 
FOFICH) avec le code illégal $AOOC. 
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Pour la routine INFOFICH, ïf faut 
dans : 


18(A0) : l'adresse (4 octets) du tam- 
pon destiné au stockage du nom de 
fichier, précédé du nombre de carac- 
tères dans le nom. 

22(A0) : le numéro (2 octets) de ré- 
férence du volume sur lequel se 
trouve le fichier (1 pour le lecteur in- 
terne, 2 pour le lecteur externe). 
28(A0) . le numéro (2 octets) du fi- 
chier concemé. 


Comme pour la routine précédente, 
il existe plusieurs possibilités pour in- 
diquer à la routine INFOFICH le fi- 
chier à traiter : 

Si AO + 28 est positif, la routine re- 
tourne les informations sur le fichier 
correspondant au nombre positif. Si 
AO + 28 est égal ou inférieur à zéro, 
là routine retoume les informations 
sur le fichier dont le nom {précédé 


Disquette Pom's 


Protection logicielle : Non 
Protection matérielle : Non 


Nombre de fichiers sur la disquette : 


Premier bloc du catalogue : 


Nombre de biocs dans le catalogue : 


Nombre de blocs sur ia disquette : 
Nombre d'octets par bloc : 


Nombre minimum d'octets successifs : 


Premier bioc alloué : 


Premier numéro de fichier disponible : 


Nombre de blocs libres : 
Nombre d'octets libres : 


DONNEES 





d'un octets indiquant le nombre de 
caractères de ce nom) est pointé par 
le contenu (4 octets) de AO + 18. Si 
deux fichiers situés sur des volumes 
différent portent le même nom. les 
informations retournées correspon- 
dent au fichier placé sur le volume 
spécifié par AO + 22. 


Informations retournées 
par INFOFICH 


32(A0): quatre caractères ASCII 
pour le type de fichier. 

36(A0): quatre caractères ASCII 
pour une abréviation du nom de 
l’auteur ou du programme qui à gé- 
nété le fichier. 

40(A0) : drapeaux (2 octets). Si le 
bit 15 est à 1, le fichier est protégé. 
Si le bit 14 est à 1, l'icône est invisi- 
ble. Si le bit 13 est à 1, le fichier re- 
proupe plusieurs ”’sous-fichiers”. Si le 
bit 12 est à 1, le fichier est un ‘fi- 


chier système”. 

42(A0) : quatre octek contenant la 
position de l'icône dans sa fenêtre. 
Les deux octets de poids fort 
contiennent la position horizontale, 
les deux octets de poids faible la po- 
sition verticale. 

46(A0) : deux octets pour la fenêtre 
où apparaît l'icône. Si AO + 46 est 
égal à —3, l'icône apparaît dans la 
fenêtre de la corbeille. Si AO + 46 
est égal à —2, l'icône apparaît sur le 
bureau. Si AO + 46 est égal à O0, 
l'icône apparaît dans la fenêtre du 
volume. Si AO + 46 est supérieur à 
O, l'icône apparaît dans la fenêtre 
d’un dossier. 

48(A0): numéro du fichier sur 2 
octets. Il s’agit du numéro réel, qui 
ne correspond pas forcément à celui 
placé dans AO + 28 avant l’appel de 
la routine. 

52(A0) : premier bloc pour la partie 





Fichier numéro : 
Premier bloc de données ; 
lungueur logiaue ‘Unnnées': 


Longueur physique ‘données’ : __ 
Preinier &loc ressource: 

Longueur logique ressource : ___ 
Lungueur physique ‘ressource: … 
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“données” du fichier (2 octets). 
54(A0) : longueur logique en octets 
pour la partie données” {4 octets). 
58(A0): longueur physique en 
octets pour la partie ‘données” (4 
octets). 

62(A0) : premier bloc pour la partie 
‘ressource ‘ du fichier 

64(A0) : longueur logique en octets 
pour la partie ‘’ressource” (4 octets). 
68(A0) longueur physique en 
octets pour la partie ‘ressource’ (4 
octets). 

72(A0): date et heure de création 
sous la forme de 32 bits indiquant le 
nombre de secondes écoulées depuis 
le premier janvier 1904 à 12H00. 
76(A0) : identique à AO + 72, mais 
pour la dernière modification. 


Avant de conclure. il faut dire quel- 
ques mots sur la méthode employée 
pour supprimer les menus Le Basic 
Microsoft ne permet pas la suppres- 
sion pure et simple d'un menu, il est 
seulement possible de les masquer 
La méthode n'est pas très élégante. 
prend beaucoup de place et ne per- 
met pas de supprimer le menu 
“Pomme”, qui est fort gênant car les 
accessoires de bureau qu'il permet 
d'appeler masquent les fenêtres du 
Basic, qui ne sont pas remises à jour 
à la fermeture des accessoires. Notre 
programme utilise deux routines. La 
première. que l'on appelle avec 
$A936. supprime le menu dont le 
numéro se trouve au sommet de la 
pile. sur deux octets Le numéro 


d'un menu est celui que l'on utilise- 
rait en Basic moins 1 {Le menu 
Pomme” porte le numéro 1) La se- 
conde routine, $A937. réaffiche la 
barre des menus dans sa nouvelle 
configuration. 


Nous savons maintenant lire. depuis 
le Basic et avec l'aide de quelques 
routines. les indications situées sur 
une disquette. Nous verrons prochai- 
nement quil est aussi possible de 
modifier les informations. ce qui nous 
permettra de lire depuis le Basic le 
contenu de certains fichiers comme, 
par exemple. les polices de caractè- 
res. 





Source des routines en langage machine 


incorporees au programme Basic 


Û TABLE  BSi 21 
2 NOM DSL 16 
3 456 0000 VOLUME LINK 

4 41FA FF66 LEA 

5 2248 MOVEAL 
6 7014 MOVEQ 
7 4299 BINIT CLRL 
8 S1C8 FFFC DBRA 

9 45FA FFAC LEA 

10 214A 0012 MOVE L 
[1 226E 0008 MOVEAL 
12 49 0001 MOVE B 
13 2429 0001 MOVEL 
14 0282 OOFF FFFF ANDIL 
1S 2642 MOVEAL 
16 721B MOVE® 
17 140B BNOM MOVE.B 
18 Ssicg FFFC DBRA 
19 5368 OOIC SUBQ 
20 A007 DC 

2t ESE UNLK 

22 4E7S RTS 

23 456 0000 FICHIERS LINK 

24 41FA FF26 LEA 

25 316€ 0008 O01C MÔVE 
26 43FA FF70 LEA 

27 2149 0012 MOVEL 
28 AOOC DC 

29 4ESE UNLK 
30 4E75 RTS 

31 456 0000 MENU LINK 

32 3F2E 0008 MOVE 
33 A936 DC 

34 A937 DC 

35 4ESE UNLK AS 
36 4E75 RTS 
Pom's n° 17 


REM *#X*CAT ALBGUE*** 


WINDOW CEOSE i.WIDTH 25SON ERROR GOTO Erreur 

DEFINT A-Z DIM C(127),P{1),T(217),C$(17) POKE &H2F8,0 

DEF FNV321(AI,N)=PEEK (AI N)#2°24+ PEEK(AIN+ 1)#2°16+ PEEK (AÏ+N-2) 
*256-+PEEK({AI*N-3) 

DSK$="Disquette * PL$="Protection logicielle : ” 

PM$="Protection matertelle : "= NF$="Nombre de fichiers sur la disquette " 
PBC$="Premier bioc du catalogue “NBC$=" Nombre de Dbiocs dans le catalogue 


NBD$="Nombre de blocs sur la disquette :” 
NOB$="Nombre d octets par bloc ” 
NMO$="Nombre minimum d'octets successifs :PBA$»"Premier bloc alloué ” 


C$(1)="0040003600040000000000000002000000000800000300000000 
C$(2)-"100000018000000030000000C000000060000000A0000000€000 
C$(3)="0000A0000001400000004000000140000000A000000140000000 
C$(4)=" A000000 | 40000000 A01FF00 : 4000000090E00F02400000008B0000 


A6,°0 

es PNF$="Premier numéro de fichier disponible 

#20,00 NBL$="Nombre de blocs libres :":NOL$="Nombre d'octets libres ” 
(A})+ 9$-"Oui" N$="Non” 

DO,BINIT U9$="ses#ssxxsx" UB$="ssssssss-||j6f-"ssssss" US$="*+x##…" 
NOM1,A2 

A2,18(A0) 

8(A6),A1 

I(AT),(A2)+ 

1{A1),D2 


=$00FFFFFF,D2 
D2,A3 


C$(5)="E440000000460000 1 880000000230000050000000F 200000030000 
C$(6)-"0030B000000 1000000408800000080000083E0001FC040000 104 
C$(7)="1000C0182000010838000000200002 1044003FF 010000200820 t 


REM Initialisation des variables (pour éviter les “mouvements de mémoire") 


Plans. [C8(B)="FSAE1000020107023DE 1 10000 10 21080 1FCO 10000 1002080303 
ET ENoN C$(9)-"0100000804040C00€ 1000004044410002 100001 A0044200 01 10 
71 28(A0) C$(10)="0006300242000120000B83803840000A000 1 30402040000C000 
$A007 C$( 1 1)="386C06040000FFE0506C07040000FC 1843080F82000 1F004581 
de C$(12)="01FF2000 1C00298403FFF00038002C 180DFFFCOO0FO00 1E6038FF 

C$(13)-"FFFFEOOO3FFFFFFFFFFFOSFFF000000000200200000000000040 

C$(1 4)}="0200000000000080010000000000008001000000000000840 10 
A6, “0 C$(15)="00000000001288 100000000000 1 49 ! 100000000000 1 4922000 
TABLE,AO C$(16)="00000000 i 4922000000000000C9220000000000004924000000 
B(A6),28(A0) | C${17)="000000492400000000000029380000000000000480000 
Non”, Al FOR 1=1 TO 17-C$(0)=C$(0)-C$(+) NEXT 
Al,18(A0) 
$AOOC 
A6 

1=0J=0K=0.P=0:N-0:DR=0 X=0 Y=0: V=N 
VOL=74" Point d'entrée dans le tableau pour la routine “Volume” 

A6, “0 FIL=106" Point d'entrée pour la routine "Fichiers 
B(A6),-(SP) MEN=120 "Point d'entrée pour la routine “Menu” 
5A936 
5A937 AI=VARPTR (T{0))J=1 


43 


FOR 1=0 FO 435 POKE Ali, VAL("&H"-MID$ (C$(0),J,2))J=J+2 NEXT 
ERASE C$ 
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PRINT NMO$ TAB(34) USING UGS$,FNV321AI,52) 
PRINT PEA$ TAB(34) USING U6$ C(28) 

PRINT PNF$ TAB(34) USING U6B,FNV32IÉAI,58) 
PRINT NBE$ TAB(34) USING U68.C{31) 

PRINT N@L$ TAB(31) USING U9$,C(31}#1024 


RETURN 


REM Sous-programme pour barre des menus 


Tmenu 
MENU 


IF MENU(1)=1 THEN CR=-1 MENU 5,1,2MENU S,2,1 BUTTON 
1,1, Impression”, (5,260)-(95,288), 1 
IF MENU (1)#2 THEN DR=@ MENU 5,2,2 MENU 5,1,1 BUTTON 


À propos de l’article ”’Personna- 
lisez vos disquettes Macintosh” 
(Pom's 16) 


Le programme permettant de consti- 
tuer un fichier "StartupScreen”. mis 
au point avec la version 1 du Basic 
Microsoft. ne fonctionne pas avec la 
version 2. Pour remédier à cela. il 
convient de remplacer : 


280 FOR J = 1 TO M: PRINT #2, 


CHR$ (A(J) / 256) : CHR$ (A(J) 


1,1, Ficmers”,(5,260)-(95,280), 1 AND &HFF) :: NEXT: NEXT: 
RETURN CLOSE : PRINT "Conversion effec- 
tuée. " : GOTO 300 
REM Sous-programme pour affichage type et auteur du fichier par : 
Type 280 AD = 0: A! = VARPTR (A(1)): 


FOR }=32+P TO 35+P K=PEEK{AI+J} IF K>31 AND K<126 THEN PRINT 


CHRS$(K), ELSE PRINT "”, 
NEXT 
RETURN 


Erreur 


OPEN “LPT I" FOR OUTPUT AS 1 RESUME Serr 


fin 


WINDOW CLOSE | MENU RESET END 


54, rue de Dunkerque 


Diskettes U.S 5”1/4 SF/SD 
Diskettes 5”*1/4 SF/DD 
Lecteur diskettes pour APPLE 
(mécan. Japonais, entr. direct) 
Corte synthétiseur de voix 

Corte mémoire/langage 16 K Rom 
Corte mémoire 128 K 

Corte drive 13/16 sect. 

Corte 80 colonnes 

Corte imprimante pargllèle 
Corte imprimante + Buffer 32 K 
Corte série 

Corte super série 

Corte Z80 - CP/M 

Joystick de luxe 2 +, 2E, 2C 


Pod Urgent ajouter 5,50 F 


75009 PARIS Tél: 282.17.09 
Métro: Gore du Nord (100 m) 


FOR AD = O0 to 63: PRINT #2, 
CHR$ (PEEK (A! + AD)) ; : NEXT: 
NEXT : CLOSE: PRINT ‘”Conver- 
sion effectuée ” : GOTO 300 





SURPRIS …. LES PRIX!!! 


PRIX T.F.C.! POUR APPLE ET COMPATIBLES 


139 F/hoîte 10 (exp. min. 5 boîtes Port27 F) 
170 F/boite 10 (exp. min. 5 boîtes Port 27 F) 


Carte wilcard (déplomboge) 
Carte communication 

Corte IEEE - 488 

Corte copieur Eprom 

Corte A/D - D/A 12 bit 
Corte horloge 

Carte musique 

Corte RGB + Prise TV Secom 
Carte 6522 Via 

Port pour une cotte 

Ventilo 10 W. super silencieux 


NOUVEAU: Pince spéciale pour diskettes (100000 trous min.) (port : 13 F) 69 F 
Ordinateur multicompotible Forth, Basic, CP/M, MS-Dos, CP/MB6 


Écrivez, nous vous enverrons une liste plus complète de nos articles. 


Notre devise : ‘’DYNAMIT COMPUTER: MOINS CHER QUE MOI TU MEURS !’ 


Revendeurs, contactez-nous. 
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BSAVE et BLOAD avec le Basic Microsoft 


Par rapport au Basic Applesoit, le 
Basic Microsoft (surtout la version 2) 
offre une gamme d'instructions extré- 
mement étendue. Malheureusement, 
il manque deux commandes du 
DOS : BLOAD et BSAVE. Ces der- 
nières sont très pratiques lorsqu'il 
s'agit de sauvegarder ou charger ra- 
pidement des fichiers binaires qui 
peuvent être, par exemple, des don- 
nées graphiques, des tableaux de va- 
riables ou encore des tables de réfé- 
rences employées pour des fichiers à 
accès direct. 


Nous nous sommes donc honteuse- 
ment inspiré du DOS de l’Apple Il 
pour créer un petit utilitaire propre à 
exécuter ces tâches. Un gros avan- 
tage par rapport à l'Apple Il: la vi- 
tesse de transfert mémoire vers dis- 
quette ou disquette vers mémoire est 
d'environ 15 Ko par seconde. ce qui 
est nettement plus performant que 
sur un Apple il, même avec un DOS 
rapide. 


Mode d'emploi 


Le programme Basic (qui fonctionne 
avec les deux versions du Basic Mi- 
crosoft) proposé avec cet article n’est 
qu'un exemple destiné à visualiser le 
passage de paramètres aux routines. 
Ce mode d'emploi est donc celui des 
routines proprement dites. 


Implantation des routines 
dans vos programmes 


Si vous pensez utiliser ces routines 
dans de nombreux programmes. 
vous avez tout intérêt à en faire un 
sous-programme MERGEable, si pos- 
sible en utilisant la possibilité de faire 
des sous-programmes à variables lo- 
cales que nous offre la nouvelle ver- 
sion du Basic Microsoft. Cette mé- 
thode héritée du Pascal permet de 
ne pas se soucier d’une éventuelle 
interaction entre le programme prin- 
cipal et le ou les sous-programmes. 


Dans le programme exemple, les 
codes héxadécimaux correspondants 
à la routine en langage machine ap- 
paraissent sous forme de chaînes de 
caractères car cela prend beaucoup 
moins de place que les traditionnels 
DATAs. Nous avons placé ces codes 
dans onze chaînes différentes afin 
d'améliorer la lisibilité du programme 
mais, dans vos programmes, vous 
pouvez mettre tous les codes dans 
seulement deux chaînes, ce qui ré- 
duira encore la place occupée par la 
routine. 


La routine ’BSAVE” 


Cette routine sauvegarde sur dis- 
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quette une zone de mémoire de N 
octets à parWr de l'adresse A. 


Le point d'entrée de la routine se 
situe dans le 85ème élément du ta- 
bleau de variables entières dans le- 
quel vous placez la routine. Ainsi, si 
le tableau de variables est baptisé 
C%, VARPTR(CY%(84)) retourne 
l'adresse à utiliser pour l'appel de la 
routine (avec OPTION BASE 1 i 
faudrait prendre 85 au lieu de 84). 
La syntaxe en est : 


CALL BSAVE! (AF!, D%, ATI N!) 
avec la première version du Basic 
Microsoft: 

BSAVE! AFI, D%, AT!, N! avec la 
version actuelle. 


BSAVE!, ou tout autre nom de va- 
riable en simple précision, contient 
adresse du point d'entrée dans la 
roufne. 


AF! représente une variable en sim- 
ple précision qui contient l'adresse 
du descripteur de la chaîne conte- 
nant le nom du fichier. Dans la prati- 
que, le plus simple est de placer l'ex- 
pression VARPTR(F$) (où F$ 
content le nom du fichier) dans le 
CALL. 


D% représente une variable entière 
contenant le numéro du lecteur: 1 
pour inteme, 2 pour externe. On 
peut aussi placer le numéro 7en 
clair” dans le CALL. 


AT! représente une variable en sim- 
ple précision contenant l'adresse de 
base du tampon de mémoire à sau- 
vegarder. Pour la sauvegarde d'un 
tableau de variables numériques, on 
peut placer dans le CALL lexpres- 
sion VARPTR(X(Y)). Il est aussi pos- 
sible de placer l'adresse “en clair” 
dans le CAËL, à condition que cette 
adresse soit supérieure à 32767 
($7FFF). Si l'on indique une adresse 
inférieure de cette façon, le CALL 
empilera seulement deux octets et, 
comme notre routine s’attend à trou- 
ver quatre octets dans la pile, il y a 
peu de chances pour que tout se 
passe bien. 


NI représente une variable en simple 
précision contenant le nombre d'oc- 
tets à sauvegarder. [l est aussi possi- 
ble d'indiquer le nombre d’octets ”’en 
clair”, avec les même réserves que 
pour AT! 


Le premier élément du tableau de 
variables entières où se trouve la 
routine en langage machine est utilisé 
pour retourner un code correspon- 
dant à une erreur éventuelle, Si ce 
mot de 16 bits contient une valeur 
nulle au retour de la routine. cela in- 
dique que tout s’est bien passé. Dans 


Mañranne Sutz 


le cas contraire, un problème est sur- 
venu. Voici les codes possibles et 
leur signification : 


—33 : le catalogue des fichiers est sa- 
turé. 

—34 : la disquette est saturée. 

—35: le volume indiqué n'existe 
pas. 

—36 : erreur d’entrées/sorties. 

—37 : nom de fichier incorrect. 
—44: Ja protection mécanique 
contre l'écriture est en place. 

—46 : le volume est protégé par logi- 
ciel (voir “Catalogue sur impri- 
mante”). 

—48 : un fichier portant le nom du 
fichier indiqué existe déjà. 

—56 : numéro de lecteur incorrect. 
La routine refuse ”’d'écraser” un fi- 
chier existant portant le même nom 
que celui indiqué, et retourne le code 
—48 dans le premier élément du ta- 
bleau de variables. Si vous voulez 


outrepasser cette protection, vous 
pouvez éciire votre programme 
ainsi : 


100 BSAVE! = VARPTR (C(84)) 
110 CALL BSAVE! (VARPTR(FS), 
1, AT!, N!} 

120 IF C(0) = —-48 THEN KILL F3: 
GOTO 110 


La routine “BLOAD” 


Cette routine charge en mémoire les 
N octets contenus par le fichier F, à 
partir de l'adresse A. 


Le point d'entrée de la routine se 
situe dans le 156ème élément du ta- 
bleau de variables entières. La syn- 
taxe de cette routine est : 


CALL BLOAD! (AFI, D%. AT!) avec 
la première version du Basic Micro- 
soft: 

BLOAD! AFI, D%, AT! avec la ver- 
sion actuelle. 


Les paramètres sont les mêmes que 
pour la routine BSAVE, mis à part le 
nombre d'octets, qui a ici disparu car 
il est déterminé automatiquement par 
la routine. Au retour de cette routine, 
le premier élément du tableau 
contient aussi un code d'erreur : 


—35: le volume indiqué n'existe 
pas. 

—36 : erreur d'entrées/sorties. 

—37 : nom de fichier incorrect. 

—43 : fichier introuvable. 

—56 : numéro de lecteur incorrect. 


Fonctionnement des 
routines 


Les deux utilitaires emploient des 
zones communes : le tampon de 80 


2x 


let 


visserie Mau) 


7 FS— + = 


Aadien das 


St 
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octets TABLE. indispensable aux 
routines d'entrées/sorties du Macin- 
tosh. le tampon de 60 octets NOM. 
qui recevra le nom du fichier à trai- 
ter. la sous-routine RET@UR qui. 
comme son nom l'indique, sera utili- 
sée pour le retour au Basic. après 
avoir passé un code d’erreur éven- 
tuel dans le premier élément du ta- 
bleau de variabies qui reçoit les routi- 
nes: enfin. la sous-routine 
INITTABLE. qui vide le tampon 
TABLE à chaque appel de l'une ou 
l'autre des routines. 


Plutôt que d'analyser le source des 
routines ligne par ligne. ce qui ferait 
double emploi avec les explications 
du programme Catalogue” publié 
dans ce numéro. nous vous propo- 
sons d'étudier les routines ”systè- 
mes’ mises en oeuvre pour arriver à 
nos fins Comme pour toutes les rou- 
tines avant un rapport avec les en- 
trées/sorties, le registre d'adresse A0 
doit pointer sur l'adresse de base 
d'un tampon où doivent se trouver 
les paramètres à passer à la routine. 
Chacune de ces routines retournent 
aussi un code d'erreur dans les deux 
octets de poids faible de DO. 


Création d’un fichier : $A008 


Les paramètres à placer dans le tam- 
pon pointé par AO sont : 


18(A0) : l'adresse de l'octet conte- 
nant le nombre de caractères dans le 
nom du fichier. suivi par les caractè- 
res eux-mêmes. 

22(A0): numéro du lecteur (1 pour 
le lecteur interne, 2 pour le lecteur 
externe). 


Si. au retour de la routine. AO + 16 
est différent de zéro, une erreur est 
survenue, son code est retoumé dans 
les deux octets de poids faible du re- 
gistre de données DO 


Mise en place d'informations : 
$A00D 


Nous utilisons cette routine pour pla- 
cer la chaîne TEXT” dans la zone 
du catalogue affectée au type de fi- 
chier. Ceci permettra d'utiliser les fi- 
chiers créés depuis d’autres program- 
mes d'application comme, par 
exemple, MacWrite. Cette routine est 
généralement utilisée après la routine 
qui permet de lire les infonnations 
sur les fichiers ($AOOC, voir l'article 
“Catalogue” dans ce numéro). Cette 
routne place dans le tampon les in- 
formations déjà présentes dans le ca- 
talogue: il suffit de les modifier avant 
d'appeler la routine $AOOD. 


16(A0) : erreur si différent de zéro 
(au retour}. 

18(A0) : adresse du nom de fichier. 
22(A0) : numéro du lecteur. 
32(A0): quatre caractères ASC] 
pour fixer le type de fichier. 

36(A0): quatre caractères ASCII 








&% Bosic Pascal fAissembteur triitiation Informations. 


al 


0.0.0.0.0.0.0.0.0.0.0.4.00.0.0.0.1000. 


) # 
PULETE 


Sur la disquette Macintosh 
numéro 1 


vous trouverez ies programmes Basic : 

e éditeur : permet l'édition de formes (dessins) ou curseurs 
à l'écran, dans le but de les réutiliser depuis 
d'autres programmes Basic 

Atac/ Appleil: transmissionde fichiers texte entre un Macintosh 
et un Apple ll 

Paint/Basic : Récupération de document MacPaint pour les 
utiliser depuis un programme Basic 

Paint/Start : Récupération d'un document MacPaint pour en 
faire une image qui sera visualisée lors de 
l'insertion de vos disquettes dans le lecteur du 
Macintosh 

et d'autres programmes “exemples” employés pour 
l'ilustration des articles publiés dans les 
numéros 15 et 1b de Pom's 


Les polices de Caractères: 
(} Los angeles 24 et l2paoints 
OS JÊS («caro 
e Fos Eistee O0 a 12 points 
+ Hollywood (Am |) 
+ Manhatio OF ] Et] 


et les programmes : 
e LOCALUIZER : confiquretien du clavier AZERTY pour la France 
(ou un autre pæys) 
e Copie de disque - pour effectuer des copies de disquettes avec 
un seul lecteur sur un Macintosh 128Ko, en seulement quatre 
passages 


PFoÂs,s = A8 LVO8DO 8000 
SCO ue LC /Ge CAR (ce qui, en gros, 


veut dire *150,00 F FC franco, bon de commande page 74°} 





Porm's n° 17 


pour fixer une abréviation du nom 
de l'auteur ou du programme qui a 
généré le fichier 

40(A0) : (2 octets). Si le bit 15 est à 
1. le fichier sera protégé. Si le bit 14 
est à 1. l'icône sera invisible. Si le bit 
13 est à 1. le fichier sera sensé re- 
grouper plusieurs ‘’sous-fichiers”, Si 
le bit 12 est à 1. le fichier sera un 
"fichier système”. 

42(A0): quatre octets contenant la 
position de l'icône dans sa fenêtre. 
Les deux octets de poids fort 
contiennent la position horizontale, 
les deux octets de poids faible la po- 
sition verticale 

46(A0): deux octets pour la fenêtre 
où apparaît l'icône. Si AO + 46 est 
égal à —3, l'icône apparaîtra dans la 
fenètre de la corbeille. Si AO + 46 
est égal à —2. l'icône apparaîtra sur 
le bureau. Si AO + 46 est égal à 0, 
l'icône apparaîtra dans la fenêtre du 
volume. Si AO + 46 est supérieur à 
0, l'icône apparaîtra dans la fenètre 
d'un dossier. 


Cette routine ne permet pas de mo- 
difier les dates et heures. ainsi que 
les informations sur la position et le 
nombre d'octets occupés par les fi- 
chiers. 


Ouverture d'un fichier : $A000 


Cette routine ne donne accès qu'à la 
partie données” d’un fichier. Pour 
lB partie ressource”. il faut utiliser 
une autre routine, dont le fonction- 


10 Exemple d'utilisation des routines 


"BSAVE" et “BLOAD” 
20° 
30 DEFINT A-Z 


40 DIM C(211),C$(11),D(3382),P(3),R(3) 
50 C$(1)="544558544E 7131 40FFFE4ESE4F 7522487 


013429951C8FFFC4E75 


60 C$(2)="4E56000041F AFF546 IEA4SFAFF9E21 4A0 


012226E00t214E9000! 


70 C$(3)="24290001028200FFFFFF2642723A I 4DB5 


IC9FFFC316E 00100016 


80 C$(4)="A008322800 1056B0A00C3228001066A8 


A3FAFFA0215 10020A000 


90 C$(5)="32280010669842A800 ICA000322800 10 


668C216E000C0020216E 


100 C$(6)="000800244268002C42A8002EA003322 


800106600FF 7040013228 


110 C$(7)="00106600FF66AO1 34EFAFF604E 560000 


A1FAFECB4EBAFFSCA4SF A 


120 C$(8)="FF 10214A0012226E000E 1 4E9000 1 242 


nement est similaire. mais dont le 
code est $AOOA 


Paramètres passés et retournés par la 
routine 


16(A0) : erreur si différent de O {au 
retour). 

18(A0) : adresse pointant sur le nom 
du fichier. 

22(A0). numéro du lecteur. 
24(A0): deux octets indiquant un 
numéro d'accès {au retour). 

27(A0) : indicateur sur un octet. Si 
le contenu de l'octet est égal à 3. les 
lectures et écritures seront autorisées 
Pour 2. seules les écritures seront ad- 
mises. Pour 1. lectures seulement. Si 
le contenu est nul. les autorisations 
en cours sont conservées 

28(A0) : adresse (4 octets) d'un tam- 
pon de mémoire de 522 octets utilisé 
pour l'accès au fichier. Si AO + 28 
contient une valeur nulle, le tampon 
de mémoire réservé au volume sera 
employé (c'est la solution retenue 
pour nos routines). 


Ecriture sur un fichier : $A003 


16(A0) : erreur si différent de O {au 
retour). 

24(A0): numéro d'accès au fichier 
{retourné précédemment par la rou- 
tine d'ouverture). 

32(A0) : adresse de base du tampon 
de mémoire à transférer vers le fi- 
chier. 

36(A0) : nombre (32 bits) d'octets à 
transférer vers le fichier. 


Lecture d'un fichier : $A002 


16(A0). erreur si différent de O {au 
retour). 

24(A0). numéro d'accés au fichier 
(retourné précédemment par la rou- 
tine d'ouverture). 

32(A0) : adresse de base du tampon 
de mémoire où devront être stockés 
les octets lus. 

36(A0) : nombre (32 bits) d’octets à 
lire depuis le fichier. 


Fermeture d’un fichier : $A001 


16(A0) : erreur si différent de O {au 
retour). 
24(A0) : numéro d'accès au fichier. 


Mise à jour du catalogue de 
la disquette : $A013 


Il faut absolument appeler cette rou- 
tine. qui ne requiert pas de paramè- 
tres, lorsque l’on vient de créer un fi- 
chier, pour mettre à jour le catalogue 
de la disquette. Si cela n’est pas fait. 
on risque de ne pas retrouver le nou- 
veau fichier, 


Nous venons de faire connaissance 
avec quelques routines du DOS du 
Macintosh. Elles offrent d’autres pos- 
sibilités que nous n'avons pas citées 
ici, le peu de pratique que nous en 
avons ne nous permet pas d'en par- 
ler sans dire de grosses bêtises. |] en 
va de même pour d'autres routines. 
mais gageons que nous n’en reste- 
rons pas là. - ri 


50 C$(11)="4268002C42A8002EA0023228001066 


OOFEF 4AOO! ÆFAFEEE 
160 FOR 1=1 TO 1 1:c$(0)=C$(O)+CS(I):NEXT 
170 Js=l'AI=VARPTR(C{71)) 


210 SAV=B4 
220 tOA=155 
230 F$="XYZ" 


180 FOR 1=0 TO 281:POKE Als1,VAL(C&H"+MIDS 
(C$(O),J,2)}J=J+2.NEXT 

190 ERASE CS 

200 CALL TEXTFONT (0) 


240 R(1)= 10 R(3)=330 


250 FOR Y=10 TO 162 STEP 8 


260 RANDOMIZE TIMER AI=VARPTR(P(0)) 


270 FOR !=0 TO 7:POKE A!+l,INT (RND#256) NEXT 


280 R(O)=Y R(2)=v+8 


290 CALL FILLRECT (VARPTR (R(O)), 


300 NEXT 


VARPTR (P(0))) 


310 LINE(10,10)-(330,170).B 


90001028200FFFFFF2642 

130 C$(9)="723A14DB51C9FFFC3 16E000C001642A 
8001CA000322800 106600 

140 C$(10)="FF 1CAOOC322800 106600FF 122 16E00 
080020216800360024 


320 GET{10,10)-(330,170),D 

330 CALL MOVETO(10,200) 

340 PRINT ‘Appuyez sur une touche pour 
sauvegarder l'image. 

350 WHILE INKEY$ =" WEND CLS 
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FCO MI=6766 ESAVE=VARPTR(CISAV)) 420 WHILE INKEY$ =" WEND CES 











370 CALL BSAVEKXVARPTR (F$).1,V ARPTR (D(O)),N:) 430 BLOADI=VARPTR (C(L@A)) 
380 IF C(C) THEN PRINT ‘Erreur l' 440 CALL BLOADIVARPTR (FF), 1, VARPTR (D(0)}) 
WHILE INKEY$ =" WEND END 450 1F C{0) THEN PRINT ‘Erreur l”: 
390 ERASE D DIM D(3382) CLS WHILE INKEY$ =""WEND END 
400 CALL MOVETO(10,200) 480 PUT(10,10),B 
410 PRINT ‘Appuyez sur une touche pour recharger 470 WHILE INKEY$ =""WEND CLS KILL "XYZ" 
| image GOTO 250 
Source des routines "BSAVE” et "BLOAD” 40 3228 0010 MOVE 16(AO)DI 
41 SFBC BN£S RETOUR 
, Segrnent commun aux deux routines 42 216E O00C 0020 MOVEL 12(A6),32(A0) 
43 216E 0008 0024 MOVEL  8(A6),36(A0) 
1 0000 ERREUR DC 0 44 4268 002€ CLR 44(A0) 
2 TABLE DSL 20 45 42A8 002€ CLRL 46(A0) 
3 NOM DSL 15 46 AO03 DC $A003 
4 5445 S854 TYPE BCL 5544558544 47 3228 0010 MOVE 16(A0)D1 
48 6600 FF70 BNE RETOUR 
S 3140 FFFE RETOUR MOVE DO,-2(A0) 49 AO0! DC $AOO! 
6 4ESE UNLK A6 50 3228 0010 MOVE 16(A0),D1 
7  4E7S RTS 51 6600 FF66 BNE RETOUR 
52 AO13 DC $A013 
8 2248 INITTABLE MOVEAL AO,A 53 4EFA FF60 BRA RETOUR 
9 7013 MOVEQ  *19,D8 
10 4299 BINIT CLRL (AL }+ , Routine "BLOAB" 
11 SIC8 FFFC DBRA BO BINIT 
12 4E7S RTS 54 4E56 0000 BLOAB LINK A6,50 
S5 4IFA FECB LEA TABLE AO 
, Routine "BSAVE" 56 AEBA FFSC BSR INIT TABLE 
13 4ES6 0000 BSAVE LINK A6,*0 57 4SFA FFI0 LEA NOFLA2 
14 AIFA FF56 LEA TABLE,AO S8 214A 0012 MOVEL  A2,18(A0) 
1S 6IEA BSRS INIT TABLE S9 226€ 000€ IMOVEAL  14A6)AI 
60 149 000! MOVEB  I(A1),(A2}+ 
16 4SFA FFAO LEA NOM,A2 61 2429 000! MOVEL  I{A})D2 
17 2144 0012 MOVEL  A2,18(A0) 62 0282 60FF FFFF ANDIL  #$OOFFFFFF,D2 
18 226E 0012 MOVEAL  IB(A6)AI 63 2642 MOVEAL  D2,A3 
19 14E9 0001 MOVEB  ICAI),(A2)+ 64 723A MOVES  <“S8D! 
20 2429 000! M@VEL 1(A1),D2 65 14DB BNOM2 MOVE B (AS)+,(A2}+ 
21 0282 OOFF FFFF ANDIL  *$OOFFFFFF,D2 | 66 S1C9 FFFC BERA D 1,BNOM2 
22 2642 MOVEAE  D2,A3 67 316E 000C 0016 MOVE 2(A6),22(A0) 
23 723A MOVEQ  *58,8 68 42A8 OOIC CLRL 2B(AO) 
24 14DB BNOM MOVEB  (A3)+(A2)+ 69 A000 pC $A000 
25 S1C9 FFFC DERA D1,BNOM 70 3228 0010 MOVE 6(A0)D1 
26 316E 0010 0016 MOVE G(A6),22(A0) | 71 6600 FFIC BNE RETOUR 
27 AO08B DC $A008 72 AOOC DC $AOOC 
28 3228 0010 MOVE 6(AO),DI 73 3228 0010 MOVE 6(A0),D! 
29 66B0 BNE 5 RETOUR 74 6600 FFI2 BNE RETOUR 
30 AOOC DC $AOOC 75 216E 0008 0020 MOVE L  &(A6),32(A0) 
31 3228 0010 MOVE 6(AO) D 76 2168 0036 0024 MOVEL  S4AO),36(A0) 
32 66A8B BNE S RETOUR 77 4268 002€ CLR 44{A0) 
33 43fA FFA2 LEA TYPE, AI 78 42A8 002€ CLRL 46(A0) 
34 215j 0020 MOVEL  (Aj),32(A0) 79 A002 DC $AO02 
35 A60D DC $AOOD 80 3228 0010 MOVE 16(A0),DI 
36 3228 0010 MOVE 6(AO).DI 81 6600 FEF4 BNE RETOUR 
37 6698 BNE S RETOUR 82 AO! DC $A@0! 
38 42A8 OO!C CLRL 28(A0) 83 4EFA FEFE BRA RETOUR 
39 A000 bc $AO00 
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Switch vidéo pour carte 80 


Eric Pascual 


Ce petit montage électronique 
s'adresse aux possesseurs d'une carte 
80 colonnes pour Apple Il compor- 
tant une sortie vidéo propre 


Le problème est le suivant : pour vi- 
sualiser l'affichage 80 colonnes. le 
moniteur doit être connecté sur la 
sortie de la carte. et non plus sur 
celle de l'Apple. Pour revenir en 40 
colonnes ou pour afficher une page 
graphique, il faut débrancher le mo- 
niteur et le remettre sur la sortie nor- 
male. Cela devient d'autant plus gé- 
nant si on utilise un système comme 
Pascal, et que l'on y fait du graphi- 
que. car Pascal reconnaît automati- 
quement les cartes 80 colonnes et les 
utilise 


Une première solution consiste à 
monter un peht interrupteur inver- 
seur qui sert à relier le moniteur à 
l'une ou l'autre des sorties vidéo, 
sans avoir à le débrancher Cela 
existe dans le commerce. tout monté 
pour l'Apple, mais c'est relativement 
cher De plus. il faut l’actionner à la 
main et donc introduire dans les pro- 
grammes, qui utilisent les deux sor- 
ties, des messages invitant l'utilisateur 
à basculer son inverseur avant de 
continuer. C'est très rapidement 
exaspérant. 


La deuxième solution, objet de cet 
article, est d'avoir un système qui 
puisse être commandé soit manuelle- 
ment, soit directement par pro- 
gramme Rassurons tout de suite les 
non habitués du fer à souder, le 
montage est très simple. De toute 
manière, on peut le construire et 
l'utiliser sans en connaître le principe. 
Enfin le budget à prévoir ne dépasse 
pas 100 francs dans la version nor- 
male 


Principe de 
fonctionnement 


La commutation du moniteur sur 
l'une ou l'autre des sorties vidéo se 
fait par l'intermédiaire d'un relais, pi- 
loté par un circuit électronique qui 
permet de le commander soit ma- 
nuellement, soit en utilisant une des 
sorties témoins accessibles sur le 
connecteur de jeux de l'Apple, en 
l'occurrence la sortie TTLO Un chan- 
gement d'état de cette dernière fera 
basculer le relais dans l’une ou l’au- 
tre des deux positions. 


Le coeur du montage est un circuit 
CD4011 qui contient 4 portes NAND 
en technologie CMOS Deux de ces 
quatre portes sont câblées de façon à 
former une bascule bistable (de type 
RS pour les connaisseurs) Le fonc- 
tionnement de ce type de bascule est 
le suivant. on dispose de deux en- 
trées et d'une sortie. Si on envoie un 
état O sur l’entrée R (RUN). la sortie 
de la bascule passera à l'état 1. Si on 
envoie un état O sur l'autre entrée S 
{STOP). la bascule reviendra à l'état 
O (espère ne pas avoir inversé les 
choses !) 


Le schéma complet du montage est 
donné en figure 1 La bascule est au 
centre du montage {les deux portes 
NAND avec les liaisons entrecroi- 
sées) L'une de ces sorties sert à 
commander le relas via le transistor 
T1. ce dernier amplifiant le courant 
de sortie du CD401!. insuffisant 
pour commander un tel composant 


À quoi servent les autres compo- 
sant ? Détaillons le montage. en 
commençant par l'entrée La pre- 
mière des portes du circuit [C1 est 
montée en inverseur: ses deux en- 
trées sont reliées. ce qui a pour effet 
de produire un signal de sortie qui 
est la négation du signal d'entrée (on 
pourra le vérifier en se reportant à la 
table de vérité de la fonction NAND) 
L'utilité de cette porte est d'isoler le 
montage du reste de l'Apple. En 
effet. elle présente une très grande 
résistance d'entrée (il s'agit d'un cir- 
cuit CMOS). Ainsi les circuits internes 
de l'ordinateur ne seront pas pertur- 
bés par notre montage 


Le signal passe ensuite par le 
condensateur C1 qui permet de gé- 
nérer une impulsion à partir dun 
changement d'état Cette impulsion 
est celle qu'il faut appliquer à l'entrée 
de la bascule pour la faire changer 
d'état. La résistance R1 permet de 
forcer l'entrée de la bascule. à l'état 
1 en l'absence d'impulsion. et donc 
de lui faire maintenir son état de sor- 
tie constant 


On constate qu'il y a un deuxième 
chemin pour le signal d'entrée, sy- 
métrique par rapport au précédent. 
C'est tout simplement pour attaquer 
la deuxième entrée de la bascule et 
commander le changement d'état in- 
verse du relais. On inverse donc le 
signal d'entrée pour qu'il produise 
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colonnes 


l'effet inverse. Les interrupteurs 
(poussoirs) SWI et SW2 sont les 
commandes manuelles du montage 
En appuyant sur l'un ou l'autre. on 
envoie une impulsion appropriée à la 
bascule qui changera d'état en fonc- 
tion de l'interrupteur qui aura été uti- 
lisé. 

Dernier point : les diodes D1 et D2 
sont des LEDs (diodes électrolumi- 
nescentes) qui serviront de voyants 
témoins de l'état de la bascule. Elles 
sont facultatives et, si on ne les utilise 
pas. on peut aussi supprimer les ré- 
sistances R5 et R6 f(limitatrices du 
courant qui traverse les LEDs), ainsi 
que le transistor T2 et sa résistance 
R4 (qui servait, comme plus haut, à 
obtenir un courant suffisant pour al- 
lumer la LED). 


Montage pratique 


La figure 2 donne un exemple d'im- 
plantation des composants sur un cir- 
cuit imprimé (dont le tracé apparaît 
en transparence). Si on ne dispose 
pas du matériel nécessaire à la 
confection d'un tel circuit, on peut 
plus simplement monter les compo- 
sants sur une plaquette prototype” 
(circuit imprimé percé de trous métal- 
lisés formant un quadrillage) et éta- 
blir les liaisons avec du fil fin isolé 
{attention aux court-circuits). L'au- 
teur a utilisé cette méthode et lors- 
que tout a été bien monté et bien 
vérifié, tout marche parfaitement. 


La figure 3 donne le brochage du 
connecteur de jeux en indiquant les 
connexions, ainsi que le brochage du 
CD 4011 utilisé dans le montage. At- 
tention à la position du repêre lors 
de la mise en place. un circuit monté 
à l'envers est un circuit mort lors de 
la mise sous tension ! 


Pour les tests, il suffit d'alimenter le 
montage par une pile de 4.5 volts si 
on ne dispose pas d'alimentation sta- 
bilisée. On reliera le fil d'entrée alter- 
nativement au plus et au moins de la 
Pile: on vérifiera ainsi que le relais 
bascule et que les diodes s'allument 
en conséquence. 


Mise en place dans 
l'Apple 


À l'issue d'un test complet, il reste à 
relier tout cela à l'Apple. 

Il est très important, pour ne pas dire 
indispensable. d'éteindre l'ordinateur 
avant de faire ou de défaire un bran- 
chement, sinon 
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Pour relier nos fils au connecteur de 
Jeux. on peut utiliser un connecteur 
16 broches pour fils en nappe. que 
votre marchand de composants se 
fera un plaisir de sertir sur les fils al- 
lant au montage (à Paris, certains 
magasins font cela gratuitement lors- 
quon leur achète un connecteur). 
Autre solution. acheter un support de 
circuit intégré 16 broches à wrapper. 
Ces suppoits ont des broches lon- 
gues et solides qui entrent sans diffi- 
culté dans le connecteur de jeux. 

Îl vous suffit alors de souder vos fils 
dans les logements du support rece- 
vant normalement les pattes du Cl 
(solution adoptée par l'auteur). Cette 
méthode est tout à fait adaptée s'il y 
a peu de fils à monter (ce qui est le 
cas ici), sinon on préfèrera celle du 
connecteur serti sur du câble en 
nappe. 

Le circuit et ses composants externes 
(poussoirs. LEDs témoins) seront 
montés dans un petit boîtier métalli- 
que pour blinder les connex'ons 
vidéo. L'ensemble pourra être fixé 
sur le côté de l'Apple. Les liaisons 
vidéo seront obligatoirement en câble 
blindé, et on veillera à relier les blin- 
dages des différents fils, sous peine 
de voir l'écran rempli de parasites 
divers. 


Commande par 
logiciel 


La sortie TTLO se commande en ré- 
férençant les adresses $CO058 et 
$CO59 (voir manuel de référence 
Apple Il page 77]. Un POKE ou un 
PEEK en $C058 mettra la sortie à 
l'état bas et désactivera le relais. Le 
moniteur doit alors être relié sur la 
sortie vidéo 40 colonnes (sinon in- 
verser les liaisons vidéo). de façon à 
se trouver dans cet état lors de la 
mise sous tension de l'Apple. Si on 
utilise l'adresse $C059. ja sortie 
1TTLO sera mise à l’état 1 et le relais 
sera alors activé. C'est tout ! 


Amélioration de la 
commande logicielle 


Ce qui est dit ci-dessus fonctionne 
parfaitement, mais... Supposons (cas 
“tordu”). que l’on allume l'Apple, on 
est donc en 40 colonnes, TTLO est à 
l'état bas. Appuyons sur le poussoir 
qui fait passer en 80 colonnes. Le 
relais bascule et le moniteur est relié 
sur notre carte 80 colonnes. Faisons 
alors un POKE 492400 par exem- 
ple. Le moniteur ne revient pas en 
40 colonnes. Drame! En fait c'est 
normal car, pour plus de simplicité. 
le montage ne répercute pas sur 
TTLO le changement d'état manuel 
que nous avons fait TTLO étant 
resté à l'état O. le POKE ne fait que 
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forcer à O une sortie qui y était déjà: 
donc aucune impulsion n'a été géné- 
rée, ce qui explique l'absence de 
réaction du montage. Si vous n'avez 
pas bien suivi, reprenez le paragra- 
phe lentement. c'est simple ! 


La parade consiste. lorsqu'on veut 
commander un état (passage en 40 
colonnes par exemple). à envoyer en 
premier lieu la commande inverse. 
puis la commande voulue. On est 
ainsi assuré de la génération d’une 
impulsion de commande puisqu'on 
fait passer TTLO dans les deux états 
successivement. En Basic cela don- 
nera : 


POKE —-16295.0 ($C059) 
POKE —-16296.0 ($C058) 


Pour passer en 40 colonnes et inver- 
sement, pour passer en 80 colonnes: 
c'est imparable ! 


Dernier raffinement 


Si on est déjà en 40 colonnes et que 
l'on exécute les deux instructions ci- 
dessus, on observera un flash à 
l'écran dû au passage intermédiaire 
en 80 colonnes. Ce n’est pas beau et 
je ne sais pas si la vidéo aime beau- 
coup. La solution est de faire ces 
deux accès en assembleur. En effet 
la lenteur de l'interpréteur Basic (ou 
P-code si on est en Pascal UCSD) 
fait que le relais ”’a le temps” de bas- 
cuier dans les deux positions. Si on 
programme la séquence en assem- 
bleur, il n'aura plus le temps de ”sui- 
vre” (du fait de son inertie mécani- 
que) et il n'y aura pas de flash à 
l'écran. Il y a juste une précaution à 
prendre: introduire une temporisa- 
tion entre les deux accès. sinon l'im- 
pulsion générée est trop courte pour 
être enregistrée par le montage. 
Conclusion, cela se traduit par : 


40 PHA 
TXA 
PHA 
LDA $C059 
LDX £$0A 
DEX 
RENE LOOP 
LDA $C058 
PLA 
TAX 
PLA 
RTS 


LOOP 


Pour la procédure SW&0,. il suffit 
d'inverser $C058 et $C059 Le nom- 
bre de boucles de temporisation a 
été déterminé par expérimentation : 
suffisamment grand pour être enre- 
gistré par le montage (en fait le mini- 


mum est de 5}, mais pas trop grand 
pour que le relais ne suive pas. 


Conclusion 


L'auteur a introduit ces procédures 
un peu partout. En Pascal. on peut 
en faire une UNIT et les mettre en 
SYSTEMLIBRARY. ce qui facilite 
l'appel par les programmes (pas 
d'édition de liens à faire). En Basic 
pas de commentaire particulier. Sous 
CP/M il faut se souvenir du glisse- 
ment des adresses entre le 6502 et le 
Z80, et par conséquent $C058 et 
$C059 deviennent respectivement 
$E058 et $E059. En mettant la rou- 
tine SW80 en AUTORUN,. on obtient 
une disquette CP/M qui commute 
automatiquement je moniteur en 
“bootant”. La même manipulation 
peut se faire en Pascal en utilisant le 
SYSTEMSTARTUP.  Sympathique 
non ? 


Comme mentionné en début d'arti- 
cle. le montage revient à environ 100 
francs si on utilise des composants 
courants. Î ne nécessite aucune mise 
au point si on n'a pas fait d'erreur de 
câblage. 


Remarques diverses 


À la longue. pour éviter les problé- 
mes avec les poussoirs. il vaut mieux 
utitiser des poussoirs de type digitast. 
Ils sont équipés de contacts anti-re- 
bond en or. Il en existe même, 
comble de raffinement, un type 
comportant une LED témoin sur la 
touche. Le modèle sans LED côute 
environ 13 francs, et celui avec. à 
peu près 25 francs. Il est un plus 
cher, certes. mais nettement plus fia- 
ble. 


Le circuit intégré utilisé est un CD 
4011 CMOS. Ne pas prendre son 
équivalent TTL pour deux raisons. 


Tout d’abord les valeurs des compo- 
san ne sont pas prévues pour ce 
type de circuit fimpédances d'entrée 
et de sortie beaucoup plus faibles en 
TTL). D'autre part. le brochage du 
circuit TIL nest pas le même que 
celui du circuit CMOS. Le tracé du 
circuit imprimé serait donc faux. 


Pour ce qui est du relais. il est préfé- 
rable d'utiliser un relais monté en 
boîtier Cl. Il a l'avantage d'être mi- 
niatutisé. et de nécessiter des cou- 
rants de commande très faibles (ne 
pas oublier que l'on ne doit pas 
consommer plus de 200mA sur la 
sortie 5 volts du connecteur de jeux) 


La diode D3 sera une diode de re- 
dressement quelconque. Son rôle est 
d'absorber les courants d'auto-induc- 
tion qui prennent naissance dans la 
bobine du relais et qui pourraient en- 
dommager le transistor T1. 
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Sortie > 
TTLO 


Switch vidéo: 


E— 
D — 








ds Di D2 
- T à 80 coi 
Bi 2 £ | 40 col 
R5 : 
ci 
= 


Toruteur 
ict C2 ë 
D— 





40 ro! 


Montteur —— 


BOcoi 


— 


— 


Figure 2 


Nomenciature: 


Résistances 
R1,R2: 10 0 kobeæm 
R3.R4: 10 ïohm 
BS.BR6: 470 ohm 

Condensateurs 
C1.C2: 47 oF 


Transistors: 
T1T2: 2W2222 ox équivelent 


Diodes 
Dt.D2: LED 


D3: diode redressement 


IC 


Divers 





SV1.5W2: boutons poussoirs 


ss$ TTLO Belai 5 volts (brochege CI} 


Cable coaxiel vidéo, prises CINCH.... 


TILO + 


brochages divers 


CLAVIER 


CD4011 


Figure 3 


IC1: CDAG11 (4 portes MAWD CHOS 2 entrées) 


0 wits 


+5 voits 


Connecteur de jeux APPLE II 





Connectear 16 brocbes CI {pour 1a sortie GAME de 1’APPLE) 


Câblage des poussoirs 


HTAB 10: 





Bien entendu, ceci est particulière- 
ment utile pour le HGR (notamment 
pour les affichages de shapes). 


PRINT 


RER Trucs et Astuces 30 GOTO 20 

3 Comment éviter le clignotement 

1 du curseur sur un Apple //e 
Le clignotement est dû au fait que 10 IF PEEK (49177) > 127 THEN 
l'on change les données au moment 10 
même où on les affiche à l'écran. Il L ? » 

e faut lire le signal en $C019 (49177), a CEA D qe 
et changer l'affichage lorsqu'il est au VTAB 

6 niveau bas (c'est-à-dire, inférieur à "POM'S” 

4 : LED 128). , 30 GOTO 10 
Essayer le programme ci-dessous 
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Manuel de référence de 


5 avec : Source : 
— LD » 30 GOTO 10 l'Apple //e. 
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Mini -éditeur Basic pour Apple II ou //e 


Je vous propose un petit programme 
en langage machine, connecté au ni- 
veau de la routine d'accès au clavier 
(RDCHAR), qui reçoit ses instruc- 
tions de l'utilisateur par l'intermé- 
diaire du clavier (le vrai) et simule 
des touches ”soft” pour le système. Il 
n'assure aucune gestion, ni de 
l'écran, ni du buffer d'entrée ($200). 
et fonctionne donc sous toutes les 
configurations qui utilisent la routine 
d'entrée KEYIN : moniteur, Applesoft 
en immédiat, Applesoft en mode 
programme avec les fonctions INPUT 
et GET, DOS... 


Il donne accès aux fonctions suivan- 
tes : 


1-Redéfinition sur le clavier 
QWERTY d'un bloc numérique. sui- 
vant la disposition ‘calculette’ adop- 
tée sur plusieurs machines (HP 75. 
Epson HX 20...). 

Cette fonction est accessible par pro- 
gramme, en mode immédiat et en 
Basic (très commode pour un pro- 
gramme de saisie de données qui al- 
terne des saisies alphabétiques et nu- 
mériques). 

2-Programmation des touches pour 
générer automatiquement une suite 
de caractères. Le programme pos- 
sède sa propre table de données et 
peut donc accepter n'importe quoi 
(on n'est plus limité aux seuls mot 
Basic lus dans la ROM Abpplesoft). 
On pourra, bien sûr, préprogrammer 
des mots Applesoft, des commandes 
DOS courantes (SAVE, LOAD, CA- 
TALOG..), mais aussi toute sé- 
quence utilisée fréquemment dans un 
programme (FOR 1 =1 TO K, PRINT 
CHRS{(4} par exemple). La program- 
mation se fait touche par touche, en 
mode immédiat et on peut la redéfi- 
nir à tout moment. On peut prépro- 
grammer un clavier et le stocker sur 
disque en l'état, et conserver ainsi 
des claviers différents, que l'on char- 
gera en fonction du type de pro- 
gramme exécuté (clavier Basic cou- 
rant, clavier spécial commandes 
graphiques. etc...). 

3-Numérotation automatique des 
lignes en Applesoft. Mise en (ou 
hors) service en permanence. 


4-Le clavier possède des commandes 
de tabulation (uniquement sur l'Ap- 
ple //e) qui utilisent les touches DEL 
et TAB 


Le programme est implanté à partir 
de l'adresse $8600, et non plus haut, 
pour permettre la cohabitation avec 


un autre utilitaire de programmation, 
le logiciel RENUMBER — HOLD -— 
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MERGE d'Apple, qui se charge à 
partir de l'adresse $8D00,. II modifie 
HIMEM lors de sa mise en service 
pour assurer sa protection. Attention, 
RENUMBER fait de même, il est 
donc recommandé de charger 
d'abord RENUMBER. puis le clavier, 
si l’on désire utiliser les deux. 


Utilisation 
Mise en service 


Si le programme n'est pas en mé- 
moire, il suffit de faire : 
BRUN CLAVIER2E (ou CLA- 
VIERZ2+, où tout autre nom). 

Si le programme est déjà chargé, 
mais a été désactivé, on fera : 

— Sous Basic : CALL 34304. 

— Sous moniteur : 8600G. 

Le système rend la main avec un 
curseur modifié. 


Mise hors service 


— Méthode brutale : RESET. 

— Méthode délicate : passez sous le 
moniteur et tapez : 

AA55: 1B FD suivi de RETURN. 


Sauvegarde 


Le programme CLAVIER2E ou 
CLAVIER2+ ne comporte pas de 
table de touches prédéfinies. On l'uti- 
lisera pour créer une collection de 
claviers préprogrammés, sauvegardés 


par : 
BSAVE Nom,A$8600.L$651 


Commandes 


Le fonctionnement est un peu diffé- 
rent selon l’Apple dont vous dispo- 
sez. 

L’Apple //e utilise la touche “Pomme 
Pleine” (dite PP} pour les comman- 
des. et la touche ‘Pomme Ouverte” 
(dite PO) pour les sorties de chaînes 
programmées (toute ressemblance 
avec les fonctions glossaires d'Ap- 
plewriter /;e a été très difficile à obte- 
nir!} Les touches “Pommes” sont 
utilisées, comme les touches SHIFT 
et CTRL, en maintenant la 
Pomme’ enfoncée et en appuyant 
sur une autre touche. 

L’Apple II utilise la touche CTRL 
pour les deux (le pauvre !}. 


Bloc numérique 


La redéfinition est la suivante : 

ANS RE ANUS El ONE 
Re PL M”, Et LL LI correspon- 
dent respectivement à 7, 8, 9, 4,5, 
6,1,2 3 0,E, ”."”. Pour une util- 
sation facile, il est recommandé de 
marquer les touches : caractères LE- 
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TRASET plus vernis mat par exem- 
ple, ça marche très bien, venez voir 
le mien. 


e Commutatlon alpha / numérique 
Sur Apple //e : PP-N. 
Sur Apple Il : CTRL-Z. 

e Commutation numérique / alpha 
Sur Apple //e : PP-A. 
Sur Apple Il : CTRL-Z. 

e Dans un programme Basic 
— Numérique : POKE 255,255 
— Alpha : POKE 255,0 


Touches programmées 


1— Programmatlon d'une touche : 

e Passer en mode programme : 
Apple //e : PP-P. 
Apple Il : CTRL-B. 

e Taper les caractères désirés. 

© Affecter la séquence à une touche 
choisie par : 
Apple //e : PO-touche. 
Apple Il: CTRL-touche. 


L'affichage écran indique alors la 
touche d'affectation, annule la ligne, 
et on sort du mode programme. 


ATTENTION : 

— En mode programme, les possibili- 
tés d'édition sont limitées. On peut 
corriger la frappe par les flèches gau- 
che et droite, mais pas en édition 
d'écran. ESC est inhibée, ainsi que 
CTRL-X. 

— Si une touche n'est pas program- 
mable, toute affectation sera ignorée. 
— Une touche peut être reprogram- 
mée à volonté. 

— Pour déprogrammer, surtout sur 
Apple Il, si l'on souhaite récupérer 
un caractère de contrôle, il suffit de 
programmer une chaîne vide : 

Apple 11: CTRL-B puis CTRL-tou- 
che. 

Apple //e : PP-P puis PO-touche. 


2— Sortie de la programmation 
d'une touche : 

Apple //e : PO-touche. 

Apple Il : CTRL-touche. 

Remarques : une touche non pro- 
grammée renvoie le caractère qui lui 
correspond. 

La programmation est prioritaire sur 
la redéfinition numérique du clavier. 
Une touche K non programmée ren- 
verra un K et non un 2, si elle est 
utilisée avec PO ou CTRE. 


3— Capacités de programmation : 

Sur Apple //e, toutes les "lettres ma- 
juscules” acceptent jusqu'à 7 caractè- 
res (suffisant pour tous les mot de 
l'Applesoft ou du DOS) et les tou- 
ches ”’chiffres” jusqu'à 23 caractères. 


Sur Apple II, seules tes touches al- 
phabétiques sont programmables, 
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vz 
D 


PTS à ae 
rent inhe 


sauf les caractères de contrôle sui- 
vants 


Les fonctions d'édition 
Break : CTRL-C 
Cancel : CTRL-X 
Return : CTRL-M 
Bsp: CTRL-H 

Nak. CTRL-U 


Les commandes clavier 
CTRL-B 
CTRL-Z 


On dispose ainsi. sur l'Apple II. de 
19 touches acceptant 15 caractères 


4— Recommandations 

Dans un programme Basic. le clavier 
fonctionne avec INPUT et GET 
Avec GET. il faut éviter de frapper 
une touche programmée, sinon le 
GET va récupérer le premier carac- 
tère de la séquence et tous les GETs 
qui lui succèdent prendront les carac- 
tères suivants, Un par un, sans possi- 
bilté d'intervention de l'utilisateur 
Résultats folkloriques assurés ! La so- 
lution est la suivante : inhiber, pour 
un accès clavier. la fonction pro- 
gramme par : 

POKE 2540 GET 


Générateur de numéros de 
lignes (mode AUTONUM) 


1— Mise en service : 

e Passer en mode programme (PP-P 
où CTRL-B). 

e Taper : le numéro de la ligne et le 
pas d'incrémentation. 

e Return 

Le générateur possède des valeurs 


CLAVIER.LIST 


10 AD = 30000: HIMEM: AD 


par défaut qui sont 10,10. On peut 
donc utiliser toutes les combina'sons 
possibles : 

Pour 10.10 : Mode Programme ‘Re- 
tum” 

Pour 100.10 : Mode Programme et 
7100” “Return” 

Pour 10,5: Mode Programme et 
5° Return’. 

etc. 


Remarques . le générateur sait comp- 
ter jusqu’à 65535, mais l'Applesoft 
ne va pas au delà de 63999 {donc 
faites des programmes couits!}. Le 
générateur sort un nouveau numéro 
après chaque entrée de ligne et res- 
sort le même numéro après une an- 
nulation par CTRL-X. 

2— Sortie 

La soitie du mode AUTONUM se fait 
manuellement, en appuyant sur RE- 
TURN juste après le numéro de 
ligne. On sort automatiquement en 
cas de ‘collision” lorsque le généra- 
teur, en cours de numérotation, ren- 
contre une ligne de programme déjà 
existante. C'est une sécurité qui per- 
met de réinsérer des lignes. en nu- 
mérotation automatique, sans risquer 
de détruire ce qui existe. On ne 
pourra donc pas utiliser ce mode 
pour réécrire une série de lignes 
(prenez vos responsabilités et faites 
DEL vous même). 


Tabulations sur lignes (réservé 
aux Apple //e). 


1— Touche TAB: 
Méme fonctionnement que la touche 





fièche à droite mais déplace le cur- 
seur de 10 en 10. Il est ainsi aisé de 
recopier rapidement une longue ligne 
Basic (attention aux répétitions. cela 
va très vite) En maintenant enfon- 
cées les touches PO et TAB le cur- 
seur se déplace. vers la gauche, de 
10 en 10. 


2— Touche DEL : 


C'est une touche d'annulation : elle 
fait reculer le curseur comme la flè- 
che à gauche. qui supprime le der- 
nier caractère frappé. alors que DEL 
supprime les caractères correspon- 
dant à la dernière frappe de touche 
(supprime le mot si la touche est pro- 
grammée). 


Pour terminer, si vous trouvez des 
bugs ou si vous avez des suggestions. 
faites le moi savoir. 


Deux conseils : 

— Ne pas utiliser le Clavier avec l'IN- 
TEGER BASIC. 

— En ce qui concerne lédition sur 
80 colonnes : les cartes “incrustées" 
(carte texte Apple //e) ne supportent 
pas la routine moniteur KEYIN (et les 
fonctions Basic qui l'utilisent, INPUT 
et GET); il est donc impossible d’em- 
ployer cet éditeur. Par contre. les 
cartes de type terminal vidéo {Super- 
term, Videx, etc...), fonctionnent par- 
faitement. 


N.D.L.R: ce programme tourne sur 
l'Apple //c Il faut charger CLA- 
VIERZE. Il est à noter que le curseur 
n'est pas visualisé. 


= 25:AB = AD + 44: GOSUB 


20 INPUT "NOM DE VOTRE CLAVIER ? *:;N$ | 75 PRINT CHR$S (4) ;"PR#O" 
39 PRINT CHRS (4);"BLOAD*“;N8;" ,A" ;AD 80 ENS 
3S PRINT CHR$S (4) ;"PRA!": PRINT N#: PRI 1800 FOR I = O0 TO IMAX:AX = AB + DC # l: 
NT C$ = CHR (CA + I) + ": ” 
40 PC = 16: ON PEEK (AD + 769) / 50 + 1 1100 IF  PEEK (AX) = O0 THEN PRINT C$: N 
GOTO 50,70 EXT RE TURN 
50 DCE = 24:CA = 48:1MAX = 9:AB = AD + 252 1200 C$ = C$ + CHRS ( PEEK <AX) — i28):A 
GOSUB 1000: PRINT X = AX + 1: GOTO 1100 
1 ; 19 FNDLIN EQU $DétA 
2j 97 2 2 pe 46 46 26 D 2 D DE DE DE DE JDE DD DD X XD x de 20 SAVE EQU $FF4an 
CR x 21 DOSPTR EQU $03EA 
4 :+ CLAVIER PROGRAMMABLE > 2Z RESTORE EQU $FF3F 
JS x 23 MOVAF EQU $EBé3 
é ;7 //E (AZE=1) ET ji]l+ (A2E=8) x 24 SNGFLT £EQU $E301 
7 3+ (ASSEMBLAGE CONDI]I TI ONNEL ) x 25 FMULTT EQU $E982 
8 ;7 x 26 FADDT EQU $E7Ci 
9 ;# IMPLANTATION: 88600 À #$8C51 # 27 FOUT EQU $ED34 
JUS > 28 FRMNUFrA EQU $D0D067 
il Lrrrpppopopeppoppppepopoh os oHpe 29 KSUDOS EQU SAASS 
124 30 GETADR EQU $E7S2 
13 ; 31 LINPTR EQU $ED24 
14 A2E EQU #1 3 OPTI] 32 ; 
: ON D'ASSSEMBLAGE 33 : ADRESSES SYSTEME 
15 ; 34 ; 
16 ; ROUTINES SYSTEME 3 TXTPTR EPZ $B8 
17 3 36 MEMSI 2 EPZ #73 
18 GIVAYF EQU $E2F2 37 LINNUM EP2 550 


APRES 
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FAC EPZ $A0 

KBD EGU $C000 
KBSTROSE EQU +$C018 
P@MOUV EQU $COéli 
POMPLEI EQGU $C062 


î 
5;  POINTEURS PROGRAMME 


; 
ALP 


EPZ $FC ; POINTE 
UR DE CHAINES 
PROG EP2 $FE ;INDICA 
TEUR DE PROGRAMMATION 
MODE EP2 $FF 3; ETAT D 
U CLAVIER (ALPHA:#%90 : 
î NUMERIQUE 
:8FF) 
ORG 58608 
08J #$500 
L 
PAG 
; ENTREE POUR INITIALISATION 
, 
ACCES JMP INIT 
, 
TABLES DE DONNEES 
L 
NLIN DFS $02,0 ;ëNO DE 
LIGNE DE PROGRAMME. 
INCL DFS $02,0 ; INCREM 
ENT. 
AUTOFL DFS #$01,0 ; DEUX 
FLAGS POUR L'ETAT DU 
AUTOSOR DFS #01 ,0 ; GENERA 
TEURS DE NOS DE LON. 
PTTB OFS $01,0 ;PTR DE 
LA TABLE DE CHAINES. 
KB DFS $61,0 ; TOUCHE 
FRAPPEE AU CLAVIER. 
TYPE DFS $01.0 ;: TYPE 0 
E TOUCHE <ALPHA,NUM, ) 
STATUS DFS $01,0 TEST D 
E SORTIE ROUTINE. 
CPTC DFS $01,0 ; COMPTE 
UR DE CARACTERES. 
FLPR DFS $1,0 :» FLAG D 
E PFROGR. EN COURS. 
LPR DFS $1,0 ? LONG. 
DE CHAINE PROGRAMMEE. 
PONM DFS $1,0 > ETAT D 
ES TOUCHES POFIMES. 
; 
ACT DFS $1E,0 ; BUFFER 
DE STOCKAGE. 
.IF A2E 
ATP DFS $00,0 TABLE 
DES CHAINES ALPHA. 
ATN DFS 3F8,0 TABLE 
DES CHAINES NUM. 
.EL 
ATP OFS $14F,0 TABLE 
UNIQUE SI APPLE2+ 
.FI 
L 
; TABLE DE REDEFINITION DU CLAVIER 
, 
ATR ASC “ !uu#B/&”’(C)x+E-,/01234 
56789: ;<=>70" 
ASC “"ABCDEFGHS1230N6P@RSTAU 
WXY 2" 


HEX DBDCDDDEDFEO 
ASC “abcdefan5i230néparstdu 


ii Tiyieisvss- . 
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Wxyz" 
3 MESSAGES PROGRAMME 


ASC “PROGRAMME : * 
HEX 00 

ASC * AFFECTE & * 
DFS $1.0 

HEX 40409800 


ASC “ AUTONU+ * 
HEX 9800 


ASC “BLOC NUMERIQUE “ 

HEX 9800 

ASC “CLAVIER ALPHABETIQUE"* 

HEX 9800 

HEX 9595959595959595959500 

HEX Geseeescecescseasooseese 
8888888 

BTAB 

DEL 


NUL 


MSG2 
MSG3 


FTAB 


HEX SeSes0s00e0060888888 
HEX 00 

PAG 

; 

;ÿ ROUTINE D’ENTREE (REMPLACE RDCHR 
) 


, 
ENT JSR SAVE 
ARDE 6502. 
BIT PROG ; SI 
CHAINE PROGRAMMEE 
BPL LECO ; 
N COURS DE SORTIE, 
JMP PRG2 
TINUE À LA SORTIR. 
LECS BIT STATUS 
SORTI NORMALEMENT 
BPL LEC “Li 
APPEL PRECEDENT? 
JSR BOSPTR 
, RECONNECTE LE DOS 
ASL STATUS 
SEC 
ROR STATUS 
INC CPTC 
BIT KBSTROSE 
BIT AUTOFL 
EN NUM. AUTO. 7 
BPL LEC2 
LDA KB 
RE TOUCHE FRAPPEE? 
CMP #$9B 


; SAUVEG 
UNE 
EST E 
: ON CON 


EST ON 


LEC 


;EST ON 


; DERNIE 


> CTRL X 
? 
BNE 5 
JMP NUrf2 
F* CMP #$8D ; CTRL M 
BNE LEC2 
JMP NUMI 
CEEZ BIT KBD 
E DU CLAVIER 
BPL LEC2 
.IF À2E 
BIT POMPLEI ; 
S POMMES 
PHP 
LDA POMOUV 
AND #560 
TAX 
PLA 
ASL 
TXA 
ADC #50 
STA POH 
FI 
LDX KBD 


; LECTUR 


ET DE 


pars 
4 LP 


RER HONISENNENS 


57 


Zi 


ÉOERTET. 


tue 7) 
vos 


{ 


Î De F7 
RES 


STX 


TE 
CPX 


K8 
AZE 
#$SFF 


UNE TQOUCHE DEL 7 


LA 


…. 


BNE 
DEC 
BNE 
INC 
JMP 
FI 
LDA 
STA 
.IF 
LDA 
CPX 
TOUCHE 
BNE 
JMP 


>3 
CPTC 
4 
CPTC 
DEL 


##0O 
CPTC 
A2E 
P@M 
#$89 
HTAB ? 
a 

TAB 


VIER APPLE2+ 


.EL 


S TOUCHES CTRL 


STA 


POM 


AUTORISEES. 


Ne 


CPX 
BCS 
CPX 
BEQ 
CPX 
BEQ 
CPX 
BEQ 
CPX 
BEQ 
CPX 
BEQ 
CPX 
BEQ 
CPX 


LE: 
SUITE 
#$80 
SUITE 
#$83 
SUITE 
#$B8S 
SUITE 
#$8D 
SUITE 
#$9S 
SUITE 
##$98 
SUITE 
#$7A 


ON SIMULE 


BNE 


PA 


LEINE +4 OÙ N POUR 


LDA 


OMMUTAT I ON 


78 


SZ 
L 8 


+P 


STA 
BIT 
BPL 
DA 
STA 
LDA 
STA 
JMP 
CPX 


#$CE 
CLAVIER 
KB 
MODE 
>8 
##$CI 
KB 
#$01 
POM 
SUITE 
#$82 


, ON SIMULE POM 


BNE 


>9 


POUR L’APPEL DU 


LDA 


PROGRAMME 


AA 


STA 
JMP 
LDA 


#$DO 


K8 
<8 
#$80 


RE TOUCHE CONTROLE, 


UV 


STA 


POM 


+ TOUCHE ALPHA 


LSR 


GLEC 
ADC 


STA 


LDA 
LDX 


K8 
KB 
POM 
KB 


EST CE 


;EST CE 


TRANSFORMATION D’UINE FRAPPE DE CLA 


;TRI DE 


; NON 


3SI1 CTR 
; P8M P 


LA C 


3SI CTR 
3; PLEINE 


: MODE 


:S1 AUT 


; PC Q 


"2 BIT FLPR 
EN COURS DE PROG? 
8PL 1 
JMP PROGMT 
rt ASL 
BCS PRGi 
OUV , SORTIE CHAINE 
LSR 
LSR 
BCS FONC! 
PLEINE , C@MMANDE 
BIT MODE 
8PL D2 
JSR REDEF 
VU NUM ,CHANG. CARACT. 
"2 LDA KB 
CMP #$8D 
VIENT DE TAPER RET, 
BNE 1 
SU’ON SORTAIT 
BIT AUTOSOR 
DE LIGNE, 
BPL D1I 
LDA #$0 
STA AUTOFL 
ULE LE MOBE AUTONUM 
5 LA #$0 
STA AUTOSOR 
ULE LE FLAG DE SORTIE 
SORT INC CPTC 
PTE LES CARAC. SORTIS 
ASL STATUS 
JSR RESTORE 
MET TOUT DANS L'ETAT 
STA ($28):Y 
L'A TRDUVE , 
LDA KB 
BIT KBSTROBE 
SE RETIRE SUR LA 
RTS 
TE DES PIEDS 
FONCi JMP_ FONC 


, 
; ROUTINE D'’INITIALISATION 
, 
INIT LDA #$G 
LISATION DES FLAGS 
STA TYPE 
STA PROG 
STA MODE 
STA FLPR 
STA STATUS 
STA AUTOFL 
LDA #ACCES 
ONNEMENT DE HIMEM 
STA MEMSI2 
ANT LE CODE. 
LDA /ACCES 
STA MEMSI24+I 
NOP 
LDA #HENT 
DU POINTEUR KSW 
STA KSWDOS 
LDA /ENT 
STA KSWDOS+1i 
RTS 


REDEFINITION DU CLAVIER 


Dee 


EDEF LDA KB 

E DE LA TABLE DE 
CMP #$FB 

NITION INDEXEE PAR 
BCS FIND 





;EST ON 


;OH ANN 


: ON ANN 
; ON COM 
ON RE 
; OÙ ON 


; ET ON 


POIN 


;INITIA 


3 POSITI 


; DEV 


;MODIF 


3 LECTUR 
3; REDEFI 


;LE COD 
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E ASCII DU CARAC. 218 CMP #$DB ;:NUMERI 
263 CMP #$A0 QUE, OÙ NON 


—$A0 319 BCS SORTI ; PROGRA 
264 BCC FIND M1EBLE 
265 SBC #$A0 320 CMP #4$Cl 
266 TAY 321 BCS ALFA 
267 LDA HATR 322 .1F A2E 
268 STA ALP 323 CMP ##$BA 
269 LDA /ATR 324 BCS SORTi 
270 STA ALP+1 325 CMP K#B80 
271 LOA <ALP),Y 326 NOP 
272 STA KB 327 BCS NUM 
273 FINS RTS 328 EI 
274 ; 329 SORTI RTS 
275 ;TOUCHES PROGRAMMEES 330 ALFA SBC ##CI ; CALCUL 
276 ; INDEX CHAINE DANS 
277 PRGI LOA #58 ; ANNULA 331 ASL :LA TAB 
TION DU FLAG DE SOR- LE ALPHA, ET RANGEM. 
278 STA AUTOSOR' 3TIE DE 332 ASL ;DU RES 
NO DE LIGNE ULTAT DANS LE 
279 JSR CALCA ; CALCUL 333 ASE ; POINTE 
ADRESSE CHAINE UR ALP 
280 LBA TYPE 3 CONTRO 334 .IF A2E 
LE 335 ADC #ATP 
281 BEQ SORT2 336 STA ALP 
282 ; 337 LDA ATP 
283 ROUTINE DE SORTIE D'UNE CHAINE POIN 338 .EL 
TEE PAR ALP , 339 ASL 
284 ; TERMINEE PAR $0 340 PHA 
0 341 LDA ##0 
285 ; 342 ADC /ATP 
286 PMES ASL PROG 3 FLAG S 343 STA ALP+1 
ORTIE CHAINE 344 CLC 
287 SEC 345 PLA 
288 ROR PROG 346 ADC #ATP 
289 LDA #50 #POINTE 347 STA ALP 
UR EN DEBUT DE CHAINE 348 LDA ALP+1 
290 STA FTTB 349 .F1 
29i TAY 350 ADC ##0 
292 LBA CALP),Y ; LECTUR 351 STA ALP+i 
E 1ER CARACTERE 352 ASL TYPE $ 
293 BNE PRG2 :SI #00 253 SEC à 
TOUCHE “VIDE" 354 ROR TYPE 
294 -.1F AZE 355 RTS 
295 JMP SORT 356 .1F A2E 
296 . EL 357 NUM S8C ##$B60 :IDEM À æ 
297 SEC VEC TABLE TOUCHES & 
298 LDA KB 358 ASL :NUMERI Ed 
27,9. SBC #$40 QUES LE 
300 STA KB 359 ASL sn 
301 JMP SORT 360 ASL 
3 .FI » 
Set aRoz LDY PTTB ; LECTUR a Hi EOBE 
E CHAINE ET SORTIE 363 ADC CODE 
304 LDA CALP),Y 3 DUC 364 ADC #ATN 
ARACTEREE 365 STA ALP 
305 BEQ FINP 366 LDA ZATN 
306 STA KB 367 ADC ##0 
307 INC PTTE 368 STA ALP+1 
308 SORT2 JMP SORT 369 LSR TYPE 
309 FINP ASL PROG :SI $00 370 SEC 
CHAINE TERMINEE , 371 ROL TYPE 
310 LSR PROG > ANNULE 372 RTS 
LE FLAG ET RETOUR 373 .Fi 
311 JMP LEC EN LEC 374 ; 
TURE CLAVIER 375 ; FONCTIONS APPELLEES PAR PQH PLEIN 
312 ; E 
313 ; ROUTINE DE CALCUL DE L'ADRESSE D’ 376 ; 
LR4E CHAINE 377 FONC LDA KB 
314 : 378 CMP ##DO :TRI P 
315 CALCA LOA #$0O ? 
316 STA TYPE 379 REQ TPF 
217 LDA K& :LA TOU 389 CMP #$CE ; N 7 
CHE FRAPPEE EST ALPHA 381 BEQ TNU 





JS CN ER. 
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382 CMF #HSCI ; OU A 487 8EQ LECI 


a 438 CMP #$9B 
383 BEQ TAL 329 BEQ LECI 
384 JMF SORT 440 CMP #3BD :S1 RET 
38S TNU LOA #3FF :PASSAG URN.APPEL DU MODE NM 
E EN MODE CLAV NUM. 44i BNE >7 ; DE 
3&e STA MODE LIGNES. 
3er LOA hMSGZ ; ET SO 442 JMP AUTOLIN 
RTIE OÙ MESSAGE FE ie 81T PÜM 
388 STA ALP 44q BMI )3 
389 LDA /MSG2 445 CMP #$88 :LES CA 
390 ST4A ALP+1 RACTERES FRAPPES SONT 
291 JMF PMES 446 BNE >! : RANGES 
392 TAL LOA #$00 :MODE A DANS LE BUFFER ACT 
LPHA ET MESSAGE 447 LDX LPR ;LE POI 
393 ST MODE NTEUR X PREND EN 
394 LEA #MSG3 448 BEQ LECI ;: COMPTE 
395 STA ALP LES TOUCHES FLECHES 
376 LOR /MEG3 449 ‘6 DEC LPR 5 AVANT 
397 STA ALP+i ET ARRIERE. 
398 UMP PMES 450 JMP SORT 
399 : 451 ‘i CMP #89S LE POI 
40 :ROUTINE BE PROGRAMMATION: VALIDATIO NTEUR CONTROLE LA 
fs 452 BEQ )2 ; LONG. 
401 ; MAX DE LA CHAINE 
402 RANGi LDA #$0 ; UN $0 453 LDX LPR 
0 DANS LE SUFFER. 454 STA AZT.X 
403 STA ACT,X î 455 ‘2 INC LPR ;ON SOR 
EN FIN DE CHAINE T APRES FRAPPE 
404 INX 454 LDX ##16 ; TOUC 
405 TXA HE P@MME OUVERTE. 
406 TAY 457 CPX LPR 
407 REC8P DEX 458 BCC <é 
488 DEY 459 JMP SORT 
409 BMI FINPR 460 “3 JSR CALCA 
410 LDA AZT,X ; ON REC 461 LDX LPR 
PIE LE BUFFER DANS 462 LDA TYPE 
ai STA (ALP) ,Y ; LA TA 463 BEQ LECI 
BLE DE RANGEMENT 464 BIT TYPE 
412 JMP RECOP 465 8PL )S 
413 LECI JMP LEC qéé .1F A2E 
443 FINPR LDA KB 467 CPX #308 
415 STA CODE 468 .EL 
4jé6 ASL FLPR ;ON POS 469 CPX #810 
ITIONNE LE FLAG DE 470 -FI 
417 LA #MSGi ; SORTIE 471 BMIi >4 
, ON AFFICHE LA 472 .IF AZE 
418 STA ALP ; TOUCHE 473 LDX K#07 
B'AFFECTATION 474 -EL 
419 LDA /MSGI ER AUE 475 LDX H#$O0F 
MESSAGE CORRESPONDANT 476 FI 
420 STA ALP+I 477 ‘4 JMP RANGI 
421 JMP PMES ; SORTIE 478 ©S CPX ##18 
. 479 BMI RAI 
422 ; 480 LDX ##17 
473 : ROUTINE DE PROGRAMMATION: SAISIE ,ED 481 RAI JMP_ RANGI 
ITION 482 ; 
424 ; 483 ;FONCTION TABULATION 
9425 TPR LDA #MSGO : PASSAG 484 ; 
E EN MODE PROGRAMME 485 TAB BIT POM sTEST D 
426 STA ALP ; SORTIE E LA POMME OUÙUV. 
DU MESSAGE. 486 BMI 1 ;s POUR L 
427 LDA /MSGQ E SENS BE DEPLAC- 
428 STA ALP+î 487 LOA HFTAE ; EMENT 
429 LDA #580 CURSEUR. 
43e STA FLPR 488 STA ALP 
431 LBA #50 489 LDA /FTAE ; ON SOR 
432 STA LPR T UNE CHAINE DE 
433 JMP PMES 450 STA ALP+i “YO UCT 
434 ; RL H OU CTRL U. 
435 PROGMT LOR KB ; INTERC 491 JMP PMES 
EPTION DES FRAPPES 492 ‘1 LDA HBTAB 
436 CMP #$98 ; REF 493 STA ALP 
US DE ESC ET CTRL X. 494 LDA /EBTAB 


TT 
60 
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4ç5 STA ALP+1 
496 JMP PMES 
497 ; 
498 ;FONCTION DEL 
499 ; 
500 DEL SEC 
T UNE CHAINE DE CPTC 
501 LDA HZDEL 
IS CTRL U. 
502 S8C CPTC 
503 STA ALP 
504 LDA /2BEL 
505 SBC #$0 
506 STA ALP+1 
507 SEC 
508 LDA #58 
509 SBC CPTC 
51e STA CPTC 
511 JMP PMES 
512 3 
513 ;NUMEROTATION LIGNES: 
RAMETRES 
514 ; 
515 AUT@LIN LDX LPR 
N FIN DU BUFFER AZT, 
51é LDA #50 
517 STA AZT,X 
518 INX 
519 STA AZT,X 
520 DEX 
521 STA NLIN+! 
522 STA INCL+1 
523 TAY 
524 DEX 
525 BMI D>5 
526 “4 LDA AZT,X 
N FORME DU BUFFER. 
527 AND K#7F 
528 °3 STA AZT.Xx 
529 DEX 
530 BPL <q 
SAINS ASL FLPR 
532 BIT KBSTROBE 
UER LE CLAVIER SI LES 
533 LDA #AZT 
NES FRMNUM, GETADR, 
534 STA TXTPTR 
TENT" €T FS8NT SORTIR 
535 LDA /AZT 
NDLERR. 
536 STA TXTPTR+1 
537 LDA #304 
ITIONNE LE TXTPTR, 
538 STA NLIN 
GE LES VALEURS PAR 
539 STA INCL 
T2 
540 LOA CTXTPTR),Y 
541 CMP H$58 
542 BEQ AUTOFIN 
593 CMP H$2C 
544 BEQ CALINC 
545 JSR FRMINUM 
ET RANGEMENT DL NO 
546 JSR GETADR 
GNE 
547 LBA L'INNUM 
548 STA NLIN 
54? LDA L'INNUM#] 
550 STA NLIN+!{ 
551 CALINC  LDY #$0 
552 INC TXTPTR 
553 BNE D2 
554 INC TXTPTR#I 
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;ON SOR 


SAISIE DES PA 


; $00 E 


MISE E 


: DEBLOR 
: ROUT] 
ÿ "PLAN 


; PAR H 


;ON POS 
;ON RAN 


; DEFAU 


; CALCUL 


F2DE 11 


me SSSR 





5939 
S56 
990 
558 
559 
560 


Séi 
562 
563 
564 
565 
Séé 
Sé67 
S568 
567 


578 


S?1 
972 
573 
574 
D729 
576 
Jr 
578 


S79 
580 
s81 


Se2 


583 
584 
585 
586 
587 


58B 
589 
570 
991 

592 
5973 
594 
595 
576 
597 
578 
I79 
é6e 


601 


602 
603 
604 
605 
é0é 
607 
608 


609 
é10 
éil 
éi2 
613 


614 
é15 


2 LDA STXTPTR),Y 
CMP ##$0 
8EQ AUTCFIN 
CMP H#$2C 
BEQ AUTOFIN 
JSR FRMNUM 
DE L'INCREHIENT. 
JSR GETADR 
LDA LINNUM 
ORA LINNUM#1 
BEG AUTOFIN 
LDA LI{NNUM 
STA INCL 
LDA L'INNUM#+1! 
STA INCE+1 
AUTOFIN LDA kRSFF 
DES FLAGS ET SORTIE 
STA AUTOFL ; 
SSAGE. 
ASL FLPR 
LDA #NUL 
STA ALP 
LDA NUL 
STA ALP +1 
JMP PMES 


: CALCUL 


; PREPA 


DU ME 


; 
: NUMEROTATION LIGNES: SORTIE NUMERO 
S 


CEC 
LDA NLIN 
NOUVEAU NQ DE LIGNE 
ADC INCL 
NTIER 2 OCTETS. 
STA NLIN 
LOA NLIN+1 
ABC INCL+1 
STA NLIN+i 
NUN+2 LDA h#0ji 
EN FLOTTANT, 
LDY #$00 
JSR GIVAYF 
JSR MOVAF 
LDY NLIN+I 
STY LINNURH ÿ 
JSR SNGFLT 
JSR FMULTT 
JSR MOQVAF 
LOY NLIN 
STY LINNUPS 
JSR SNGFLT 
JSR FADDT 
JSR FOUT 
TILISER LA ROUTINE 
STA ALP 
VERSI@N EN CHAINE, 
STY ALP+I 
EDA #$FF 
STA AUTOSER 
LDY #$0C 
! LDA (ALP) ,Y 
BEQ >2 
ORA #$80 
CHIFFRES EN 
STA (ALP) ,Y ; 
NEGATIF., 
INY 
JMP «1 
2 LDA #$&AO 
MINE PAR UN BLANC. 
STA (ALP),Y ; 
T PLUS: JOLIS 
INY 
TYA 


, 
NÜMI 
: CALCUL 


; EN E 


; CALCUL 


; POUR U 


3DE CON 


3 TRANSF 


0. DES 
ASCIF 





61 


PHA | 631 INY 








eté 
é17 SR FHDLIN :LA LIG 632 TYA 
NE EXISTE ELLE 6433 PHA 
ete ECC >3 6354 2 PLA 
e19 LDA #H$Q : OUT .C 635 TAY 
N ANNULE TOUT, 636 LRA #$0 
620 STA AUTOFL 637 STA CALP),Y 
éz1 STA AUTUSOR 638 STA CPTC 
é22 PLA 639 JMP PMES ;ON SOR 
c2z FAN T LE NUMER® FAR LA 
éz4 LRA H$e7 ; ON F 640 :; UGIE 
AIT COUINER HABITUELLE. 
625 STA (ALF),Y : ET ON 641 ; 
TERMINE PAR CTRL X. 642 : 
éZé INY 643 ;AU REVOIR LES PETITS AMIS,ET À BIEN 
627 STA (ALP) ,.Y TOT 
ézé INY 644 ; 
629 LRA #598 645 LONGUEUR =  +-ACCES 
6z0 STA (ALP) ,Y | 646 ENB 
CLAVIER 2E 8980- A9 87 85 FD 81 FC 8D 0A 8998- 88 DO 02 £é 89 8i 88 C9 
8B?88- 86 60 A9 00 80 08 86 20 88A0- 00 FO IA C9 2C F0 16 20 
8600- 4C 78 87 00 00 00 00 00 89C0- FO 89 AD 08 86 FO IF 046 88A8- 67 DD 20 S2 E7 AS 50 05 
87F6.8c50 89C8- FE 386 66 FE A9 00 8D 09 8880- 51 F0 0A AS 50 80 0S 86 
| 8900- 86 AB 81 FC DO 03 4C 63 3888- A5 S1 8D 06 86 A9 FF 8D 
87Fé- 00 A0 8908- 89 AC 09 86 81 FC FO 09 88co- “2 il 0€ ss Hs Fe £e se 
87F8- A1 A2 A3 A4 AS A6 A7 AB RAEDT CON RSESN ER TOPRESRE" ES PUF RP ARE EST 
89E€8- 989 06 FE 46 FE 4C D9 88 8800 18 AD 03 86 4D 0S 86 80 
8800- A9 AA A8 CS AD AE AF 80 SR LE de ne ea Diodes An 03e AT dre Mo 0e De 
Ne ee 99F8- C? D8 30 0D C? C1 80 0A 88E0- 80 04 86 A9 01 AO 00 20 
ER D ee ee 8A00- C9 3A 80 0S C9 60 En 80 88E8- F2 E2 20 63 E8 AC 04 86 
18 C1 C2 C3 C4 CS Cé C7 CB E 88F0- 84 SL 20 01 E3 20 82 E9 
8820- 85 81 82 83 80 CE 86 DO 8A08- 18 60 €9 CI 0ù OA DA 69 ra 1 tee V0 de 
8828- D1 D?2 D3 D4 84 06 D7 08 8A10- 2F 85 FC A9 96 57 00 85 D 
8830- 09 BA D8 DC OD DE DF E0 8A18- FD 0€ 08 86 38 4€ 08 86 8C00- 20 01 E3 20 C1 E7 20 34 
8838- El E2 E3 E4 ES Eé E7 €8 8A20- 60 E9 80 0A 0A 0A 8D 6A 8C08- ED 85 FC 84 FD A? FF 8D 
8840- 85 81 82 83 80 EE 86 F0 8A28- 88 0A 6D éA 88 69 FF 85 re S. :. se ee ne 1e A U 
8848- F1 F2 F3 F4 84 Fé F7 F8 8430- FC A9 8é 69 00 85 FD dE 1 9 1 1 
8850- F9 FA D0 D2 CF C7 D2 Ci 8A38- 08 86 38 2E 08 86 60 AD 8C20- A9 AO 91 FC C8 98 48 20 
8C29- iA Dé 90 19 A9 00 8D 07 
8858- CD CD CS AO 8A A0 0G A0 8n40- 0A 86 C9 00 F0 54 C9? CE 
8860- C1 Cé Cé CS C3 04 C5 A0 8A48- F0 07 c9 C1 F0 12 4C 43 8C30- 86 80 08 86 68 A8 A9 87 
8868- C1 A0 00 A0 A0 98 00 A0 8450- 89 A9 FF 85 FF A9 74 8S 8C38- 91 FC C8 91 FC C8 A9 968 
8870- C1 DS D4 CF CE 0S CD A0 8A58- FC A9 88 85 FO AC C7 89 8C40- 91 FC CB 98 48 68 A8 A9 
Sn nn Ca CA TE CT AN CE 8460- A9 00 85 FF A9 8C 85 FC 8C48- 00 91 FC 8D 00 86 4C C7 
8880- DS CD C5 D2 C9 Di DS CS SgAa68- A9 88 85 FD 4C C7 89 A? 8cS0- 8? 
8888- AO A0 98 00 C3 CC Ci Dé 8A70- 00 90 5 E = o a 
8890- C9 CS D2 A0 C1 CC DO c8 8n78- 88 30 0 
| 9898- C1 C2 CS D4 C9 DE DS CS 8A80- 4C 77 8A 4C 09 88 AD 0A CLAVIER 2 + 
88A0- 98 00 95 95 95 95 95 95 8A88- 86 8D 64 88 0€ 0E 66 A? 
88A8- 95 95 95 9S 06 88 88 88 8A90- SF 85 FC A9 88 85 FD 4C &600- 4C 8C 89 00 00 00 00 00 
8980- 98 99 89 939 66 98 39 88 8A98- C7 89 A9 52 85 FC A9 88 8700. 8C50 
x e888- 88 86 88 88 88 88 88 68 8nn0- 985 FD A9 80 8D 0E 84 A9 
88C0- 68 98 88 68 88 98 00 20 8an8- 00 8D 0F 86 4C C7? 89 AD 8700- 00 A0 AI 
88C8- 4A FF 24 FE 10 03 4C D9 8A80- 0A 86 C9? 98 FO CD C9 98 87E0- A2 A3 A4 AS A6 A7 A8 A9 
t 88D00- 89 2C 0C 86 10 03 20 EA 8A88- FO C9 C9 80 00 03 4C 43 87E8- AA A8 CS AD AE AF 60 B! 
88D8- 03 0E 0C 86 38 6€ 0C 86 BACO- 88 2C 10 86 30 2$ C9 88 87F0- 82 83 84 85 96 87 88 89 
88E0- EE 00 8é 2C 10 CO 2C 67 BAC8- D0 08 AE 0F 86 FO B4 CE 87F8- BA 88 8C 80 8E 6F Co CI 
88E8- 86 10 il AD CA 86 C9 98 B8ADO- 0F 8é 4C 63 89 C7 95 FO 8800- C2 C3 Ca C5 Cé C7 C8 85 
88F0-+ DO 03 4C E3 88 C9 80 DO SAD8- 0e AE OF 86 70 11 86 EE 8808- 81 82 83 80 CE 86 D0 O1 
88F8- 03 aC BO 88 2C 00 CO i0 BAEO- 0F 86 A2 18 EC OF 86 90 8910- D2 D3 D4 84 Dé D7 DB D9 
8900- F8 2C 62 CO 08 AD 61 CO BAE8- Eé 4C 63 89 20 F0 89 AE 8818- DA D8 DC DD DE DF E0 El 
8908- 29 80 Aù 68 OA BA 69 G0 8AF0- OF 86 AD 08 86 FO 8C 2C 8820- E2 E3 E4 ES Eé E7 E8 85 
8910- 80 10 86 AE 00 CO 8E 0A BAF8- 06 86 10 07 E0 08 30 02 8829- 81 82 83 80 EE Bé FO F1 
8918- 86 EO FF DO 086 CE 00 8 8800- A2 07 4C 6F 8A E0 18 30 8830- F2 F3 F4 84 Fé F7 FB F9 
8920- D0 03 EE 00 86 4C 29 88 8808- 02 A2 17 4C 6F BA 2C 10 8838- FA D0 02 CF C7 D2 Ci CD 
8928- 49 00 8D 0D 86 AD 10 86 8810- 86 30 08 A9 A2 8S FC A9 8840- CD CS AO 84 A0 00 A0 CI 
8930- E0 89 D0 03 4C 0E 88 2C 8818- 88 95 FD 4C C7 89 A? 8C 88489- Cé Cs C5 C3 D4 CS A0 Ci 
8938- 0E 8464 10 03 4C AF 84 ODA 8820- 985 FC A9 88 83 FD 4C C7 8950- A0 00 A0 A0 98 00 A0 Ci 
8940- 80 78 4A dA 680 2F 24 FF 8828- 89 38 A9 Cé ED 00 86 85 8858- 05 D4 CF CE DS CD A0 98 
3948- 10 03 20 9E 89 AD OA 8é 8830- FC A9 88 E9 00 85 FD 38 2860- 00 C2 CC CF C3 A0 CE DS 
39S0- C9 80 DO 0A 2C 08 86 10 8838- A9 00 ED 0D 86 80 0D 86 8868- CO CS D2 C9 D1 DS CS A0 
3958- 95 A? 00 80 07 86 A9 00 8840- 4C C7 99 AE 0F 86 A9 00 2870- A0 98 00 C3 CC Ci Dé C9 
8960- 8D 08 86 EE 00 86 0E 0C 8848- 9D 11 86 ES 70 11 £é CA 8878- CS D2 A0 Ci CC D0 C8 Ci 
8968- 86 20 3F FF 9i 28 AD 0A 8850- 80 04 gé 80 06 86 AB CA 2880- C2 CS 04 C9 O1 DS CS 98 
89?70- 96 2C 10 CO 60 4C 3F 8A 8858- 30 08 80 11 64 29 7F 90 9888- 00 95 95 95 95 95 95 95 
8978- A9 00 80 08 86 85 FE 85 8860- 11 86 CA 10 FS 0E 0E 86 8890- 95 95 95 00 88 98 86 68 
8980- FF 80 0€ 86 8D 0C 86 80 8868- 2C 10 CO A9 11 85 88 A7 e898- 96 99 89 86 68 8e 88 88 
8988- 67 86 A9 00 85 73 A9 86 8870- 86 85 89 A9 0A 8D 03 Sé 88A0- 88 98 98 88 88 88 69 88 
8990- 85 74 EA A9 C7 8D 55 AA 8878- 80 05 86 81 88 C9 00 FO 28A9- 89 98 80 89 88 00 20 4 
8998- A9 88 8D 56 AA 60 AD DA 9880- 3C C9 2C FQ 10 20 67 DD 8880- FF 24 FE 10 03 4C F6 989 
89A0- 86 C9 F8 80 14 C9 AO 90 2888- 20 52 E7 AS 50 80 03 8é 8888- 2C OC 86 10 03 20 EA 03 
89A8- 10 E9 AO A8 A9 F7 85 FC 8890- AS 51 8D 04 86 AC 00 Eé 88C0- 0€ 0C 86 38 6€ 0C 8é EE 





88C8- 00 86 2C 10 CO 2C 07 86 89F8- 
8800- 10 1i AD OA 86 C9 98 DO &300- 
8808- 03 4C E3 88 C9 80 DO 03 8A08- 
88E0- 4C 00 88 2C 00 CO 10 F8 8A10- 
88€8- AE 00 CO 8E 0A 86 A9 00 8A18- 
88F0- 80 0D 86 80 10 86 E0 98 8A20- 
88F8- 80 48 EO 80 FO 47 EO 83 8A28- 
8900- FO 43 E0 88 F0 3F EO 80 8A30- 
8908- F0 38 E0 95 F0 37 €0 98 8A38- 
8910- F0 33 EO 9A DO 16 A9 CE 8A40- 
8918- 8D 0A 86 24 FF 10 05 A9 8A48- 
8920- Ci 80 0A 86 A9 Ci 80 10 8AS0- 
8928- 86 4C 45 89 E0 82 00 08 8A58- 
8930- A9 DO 8D 0A 86 4C 24 89 8A60- 
8938- A9 80 8D 10 86 4A 18 D gAéa- 
8940- 0A 86 8D 0A 86 AD 10 84 aA70- 
8948- AE 0A 86 2C 0E 86 10 03 8A78- 
8950- 4C AF 8A 0A 80 78 4dA 4A 8A80- 
8958- 80 ?F 24 FF 10 03 20 82 8A88- 
8960- 89 AD 0A 86 C9 8D DO 0A 8A90- 
8968- 2C 08 86 10 0S A9 00 80 8A98- 
8970- 07 86 A9 00 80 08 86 EE SAAO- 
8978- 0D 86 0E 0C 86 20 3F FF 8nA8- 
8980- 91 28 AD 0A 86 2C 10 CO 8A80- 
8988- 60 4C 3F 8A A9 00 8D 08 8A88- 
8990- 86 85 FE 85 FF 8D 0€ 84 BACO- 
8998- 8D OC 86 8D 07 86 A9 00 8AC8- 
89A0- 85 73 A9 86 85 74 EA A9 8AD0- 
89A8- AE 8D 55 AA A9 88 80 56 8A08- 
8980- AA 60 AD OA 86 C9 F8 80 8AE0- 
8988- 14 C9 A0 90 10 E7 A0 A8 8AE8- 
89C0- A9 DE 85 FC A9 87 85 FD 8AF0- 
89C8- 81 FC 8D 0A 86 69 A9 00 8AF8- 
8900- 8D 08 86 20 0D 8A AD 08 8800- 
89D8- 86 F0 28 0é FE 38 é6 FE 8808- 
89E0- A9 00 80 09 86 A8 Bi FC 8810- 
89E8- DO 0C 38 AD 0A 86 E9 40 8818- 
89F0- 8D DA 86 4C 77 89 AC 09 8820- 


Visualisation d’une Distribution Normale 


Daniel Hirst 
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D0 
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08 
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88 
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Bans de très nombreuses situations. 
on peut observer que la valeur d’une 
variable quelconque est fonction 
d'un grand nombre d'évènements 


courbe de Gauss et suit l'équation : 


2, n2 
y= I ne (0 m),72s 


élémentaires dont les valeurs indivi- s Y 2Pi 
duéles SON RIRES AIRES avec m la moyenne arithmétique, s 
L'exemple le plus couramment utilisé l'écart-type (cest à dire lécart 


est celui de la longueur d’une queue 
de file d'attente à un guichet. En 
supposant que le temps de traite- 
ment de chaque client par l'employé 
est constant, la longueur de la queue 
dépend du rythme d'arrivée des nou- 
veaux clients, or, le temps écoulé 
entre deux arrivées est une variable 
aléatoire. On démontre que, pour un 
nombre infini d'évènements élémen- 
taires. la fonction globale suit une 
distribution dite “normale” dont la 
représentation graphique est appelée 


moyen par rapport à la moyenne), et 
pi=3,14159. bien sûr. 


Le programme NORM-DISTR pré- 
sente une animation où un grand 
nombre de petites variations aléatoi- 
res et indépendantes peuvent s'accu- 
muler et s’annuler mutuellement 
pour aboutir à une distribution de ce 


type. 

Chaque point commence en haut et 
au milieu de l'écran et tombe jusqu'à 
la ligne horizontale. En tombant il se 


8828- 879 38 A9 AO ED 0D 86 85 
8830- FC A9 88 E9 00 85 FD 38 
8838- A9 00 ED CD 86 8D O0 84 
8840 - 4C 88 89 ÀE 0F 86 A9 00 
884898- 90 11 86 E8 90 11 86 CA 
8850- 80 04 86 80 06 86 A8 CA 
8858- 30 08 80 11 86 29 7F 90 
8860- 11 86 CA 10 FS 0E 0E 86 
8868- 2C 10 CO A9 11 85 88 A9 
8870- 86 853 89 A9 OA 80 03 846 
8878- 80 05 86 81 88 C9 00 FO 
8880- 3C C9 2C F9 10 20 67 DD 
8888- ?0 52 E7 AS 50 80 03 86 
8890- AS Si 80 04 86 AO 00 Eé 
8898- 88 D0 02 Eé 89 81 88 C9 
88A0- 00 F0 1A C9 2C FQ 16 20 
88A48- 67 DD 20 S2 E7 AS SO OS 
8880- 51 F0 OA AS S0 8D 95 86 
8888- AS S1 80 06 86 A9 FF 8D 
88C0- 97 8é 0E 0E 86 A9 Sé 85 
88Cc8- FC A9 88 85 FD 4C D8 89 
88D00- 18 AD 03 86 6D 0S 86 80 
88D8- 03 86 AD 04 86 6D 06 86 
88E0- 80 04 86 A9 01 A0 00 20 
88E8- F2 E2 20 63 E8 AC 04 84 
88F0- 84 S1 20 01 E3 20 82 E9 
8g8F8- 20 63 E8 AC 03 86 84 S0 
8C00- 20 01 E3 20 Ci E7 20 34 
8co8- ED 85 FC 84 FD A9 FF 80 
8C10- 08 86 A0 090 81 FC FO 08 
8C18- 09 80 91 FC C8 4€ 14 8C 
8C20- A9 A0 91 FC C8 98 48 20 
8c28- 1A Dé 90 19 A9 00 80 07 
8C30- 86 8D 08 86 68 A8 AY 87 
8C38- 91 FC C8 91 FC C8 A9 98 
8C49- 9t FC C8 98 48 68 A8 A9 
8c48- 00 91 FC 8D 00 86 4C D8 
8cS0o- 89 


déplace de façon aléatoire soit à gau- 
che soit à droite, un peu comme un 
flocon de neige qui tombe. Une fois 
arrivés à la ligne horizontale, les 
points tombent jusqu’en bas de 
l'écran où ils s’entassent progressive- 
ment. Un petit trait horizontal indique 
à chaque instant la valeur moyenne 
de la distribution. 


Pour obtenir la valeur chiffrée de la 
moyenne et de l’écaït-type, il suffit à 
tout moment d'appuyer sur la touche 
*S” (statistiques). On peut ensuite soit 
revenir à la visualisation, soit deman- 
der l'affichage de la courbe normale. 
La touche ‘Q’ permet d'arrêter la vi- 
sualisation. Le programme est assez 
lent et gagne beaucoup à être 
compilé. par Expediter Il, par exem- 





7) 


{  REM  UISUALISATION B'UME 109  REM 

2 REM OISTRIEUTIION NORMALE 110 BIM HIT, 

3 REF  +xxD,J.HIRST 1784x4x 120 DIF XÉNPB) 

S REM amas i2a DIM YCNF) 

é (REM 177 GENTIL OO 

7 REM ----MREVISE 7-JUN-84 ---- 290  REM 

S LEE 210 IA = INT 

10 REM = C@rISTANTES 220 X2 = X] + 

20 NP = 7 280 YZ = Y1 + 

30 MT = Sao ZFS RETURN 

40 NY = 130 3Oû FEM 

50 NC = NT # NY / NF 319 HCSLOÜF= 
sb6pt 
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See £/R INCR 


ple. æ 
Tr ur TABLEAUX 
PREMIERE >DEBUT 
RNO 41) + .59 x 4 - 2 
” 


ange SFR PLOT 
0 : 


HBLOT XI, Y1 





F 
À 
W 

à, 4 


SERIES 


DRRYELTETESE 


63 


D 


22 PF x2 à Tnsri X5 = G 

320 JE 2 27% THE 2 = -Lre 

ET HCCLCOIPS 2: HPLOT “2,2 

350 RCSTUPI 

iQ REM —-----— SE HIESTC 

Si HI: <I = Hiit 1 + 

LOT VO = Pi = HI 

J30 2 = xiifl = MU + 1 

410 5 =: = + XI 

4S0 SÛ = ZA + KI + *<t 

450 xCH) = 140:Y:k, = D 

ITO MA = ZX RiLr 

350 HCOLCPR= 0: MPLOT 6,171 TO 279,171 

470 HCOLOGF= & HRLET OMS = 1144198 TA M 
1 121 


SUD. REP —===<* 2/P HOP F1 

519 POkE 49232,0: #OFE 47:34,8: PQOHE à 
35,0: POKE 47239,0 

S20 FETLEH 

ÉQOL REMM=====- £/R COURBE NORMALE 

o10 Ci = 0.237$r792 / ET 

SPONES =" = $ ET, & ET 


#50 ‘F2, =, 0! 


FAN) 

SSÛ Y2 = F2 = My à» 5 

#70 HPLOT 2,190 = T2 

& MEXT 22 

79  RETURS 

F00 FEM ------ S/® TOUCHE CLAVIER 

710 IF TC = 207 THEN GSOTA 20:0 

FEU, TLFCTC =. LAJITHEN.  SCISUEr SNA: REP) 
—-} STATISTIQUES 

797 RETURN 

ROÔOQ REP ----- S'R STATISTIQUES 

zf IF Hu 2 Tiieti FETUPH 

is TEST 

Dr] MX = €, 7 NU 

225 M4 = INT ét + 1000 + ,5) / 1000 
4Ù 

BET ET = SORONCEL = SN I SX, AN? 
41000 

22S En =  IMT CET + 1000 + .5) / 1000 

840 PRINT PRINT * No Le 
TT." MOYENNE = ";Mé: PRINT 
FT TYPE = ";Eñ: PRINT PRINT 


250 IMIPLT  “UQULEZ-LVOLIS 


AE 


Max : Le moniteur etendu 


Jacques Supernant 


EXF CCK2 - MX) = £X2 = DO 


LA COLIREE MCRMALE 


«ppie ll+, //e, //C 


1040 


1100 
116 
1120 
t120 
1200 
20 


1220 
1230 
1240 
12390 
1310 
Tec 
1320 


lee 


1335 


1310 
13935 
1350 
12SS 
1340 


1370 
1380 
1525 
1270 
009 
2010 
202€ 
2020 


GOSUE 510: REM 
IF 48 = "O" Of 
ZUB é1G: FEM 
COUREE NORMALE 
RETURN 


---> HGR PI 
CAN ÀE" = vu OUI LE THEN GO 
£=-) 


CM --------ZCESEMTATION 


HQE 


HTRE 7: 


HTAB 7: 


UTAE 12: INVERSE 
PERIRIT "I SUSLI£ATION B'LME 


PRINT "BISTRIBUTION MORMALE 


HIORPEL 


PRINT 
APEZ 
PEINT 
PRINT 
INT * 
REM —-- 
HER 


HCOL@R= 


HPLOT 
REM -- 


PRINT PRINT PRINT " T 
Z’ POitR LES STATISTIQUES" 
@: POUR S'ARSETER 


1: FRINT PRIMIT : HTSE 10: PR 
FIAIRE RETEHRN Fab AT 
-onmrnr AFFICHE CADRE 
POKE 47234,0 

7 3: HPLOT 146,0 TO 1430.MY 
OMY TS 2°7.MY 

SSTReeS INITIALI SATIGNS 

= 1 TO MNPiIXSI) = 148:YCI) = 
NEXT I 


= | TC 279#:HICI) = 0: MEXT 


REMISE == PROGRAMME PRINCIPAL 


IF TC 
GOSUS 
CLAUI 

IF YCK 
peint 
GOSUE 
RER 


GOSUB 
NEXT K 


GOSUE 
GET ÀE 
TES 


£e monteur autorise un contréle de exécution des 


routines en langage macfine. 


e Ln mode Trace et Pas à Pas très évolués et 
sélectifs sont complétés par un accès direct 


aux registres du 6508 (ou 65002) 


H est ans; 


p2ossible de les ‘nitialiser à son gré ou à l'age de /a 
routine de hasard. 
La gestion des fenétres d'écran simplifie !e 


mode Trace. 
ÜUre routine permet 
d'octets, 


3 recherche 


de suites 


Un mini-assembleur très souple fat partie de 


ATAX! 


Une ligne de commande peut devenir 


Boucle avec ordre JF. 
Les fichiers source sont sur la diSsqætte. 
Disquette et documentation : 150,00 F TTC franco 
(bon de commande page 74). 








une 


1 Te NC 
= NP THEN Y{I) = 0 
1 TO MY ,/ NP 

= 1 TO NP 

EEK & —- 15284) 

> 127 THEM POKE - 14358,9: 
710: FEM {—---? TOUCHE 
ER 

) € 0 THEN 1385 
Ko:vYi = TCK) 

210: PEM  ---)1NCR 
KR = Te 

? NY THEN  GGSUE 410: 
HISTO 
310: REM 


REr = 


=) PLAT 


810: REM 


La version B4 du 
qu'ancienne et non : 
par Apple. est une : na cer- 





tains d'entre vous p | C'est 
pourquoi, nous C to 
cations nn on déroule- 
ment des programme: tiés dans 
le précédent numéro. de l'article Pot- 


Pourri ProDOS 

Dans le programme Basic, il faut 
remplacer la ligne 117 par : 

IF PEEK (48896) <> 76 THEN... 
Dans le programme assembleur. la 
ligne 47 devient : 

JER $9C9D 4 

De ce fait. i faut modifier le code 
objet correspondant : 

032A-20 9D 9C 

D'autre part. pour ceux qui ont la 
disquette d'accompagnement, un fi- 
chier étant mal nommé. il faut rem- 
placer la ligne 6800 du programme 
Basic : BLOAD CQFD DOS. 16K 


Pom's n° 17 


Transformez votre Apple //e en Apple Il. 


Comment tourner 
l’incompatibilité 
entre II et //e. 


L'Appie //e diffère de son prédéces- 
seur par des modifications matérielles 
(carte langage intégrée et RESET dif- 
férent), mais il comporte également 
des modifications du système d'ex- 
ploitation de base, principalement en 
ce qui concerne les routines d'en- 
trées / sorties d'un caractère. Si l'on 
étudie attentivement le listing de la 
ROM moniteur, fourni dans le, ma- 
nuel de référence de l'Apple //e, on 
remarque que l'assemblage condi- 
tonnel se trouve en 9 endroits du 
moniteur, allant de $FA75 à $FD83, 
et donne un total de 137 octets de 
différence entre le moniteur //e et 
celui du Il. 

Les logiciels écrits pour l'Apple Il 
toument sur le //e s'ils utilisent les 
sous-programmes d'entrées / sorties 
standards (COUT. RDKEY. KEYIN, 
GETELN). Malheureusement, il sem- 
bierait que certains d’entre eux ne 
puissent tourner sur le //e, c'est le cas 
de l'APP-L-ISP. On peut envisager 
de modifier à la main, dans l’inter- 
préteur LISP, les appels aux fonc- 
tions d'entrées / sorties. mais il faut 
alors analyser quelques 6 Ko de lan- 
gage machine pour un résultat qui 
n'est ni garanti, ni général. 

La solution retenue consiste à utiliser 
là mémoire à bancs commutés (ex- 
carte langage) pour y installer un 
moniteur d'Apple 1l et à commuter la 
dite mémoire pour fonctionner en 
émulation d’un II. 


Quelques remarques 


Ceci est donc valable pour tout pro- 
gramme n'utilisant pas la caite lan- 
gage, par contre, si l’on souhaite que 
le RESET ne détruise pas ie mode 
émulation, il faut se passer de l’affi- 
chage 80 colonnes. 

Si vous n'avez pas la disquette d'ac- 
compagnement, il faut introduire les 
modifications du moniteur li, puis 
sauvegarder le nouveau moniteur 
ainsi obtenu pour un appel ultérieur 
dans un programme. 


Modification du 
moniteur 


La séquence des opérations est la 

suivante : 

e CALL-151 : pour passer en moni- 
teur. 

e DO80<DO06FFFFM: copie le 
moniteur en RAM {à l'initialisation, 


Pom's n° 17 


l'Apple lit en ROM et écrit dans le 
second banc de RAM). 

e FA75: AD 5D CO …. introduire 
les 137 octets modifiés d’après la 
liste ci-dessous. 


FA75: AD 5D C0 AD SF C0 
FB51: A9 28 85 21 
F8A3: 0C 


FB83: EA EA EA EA EA EA EA EA 
FBBB: EÂ EA EA EA EA 


FC42: A4 24 ÀS 25 48 24 

FC48: 24 FC 20 9 FC A0 00 468 
FCS0: 69 00 CS 23 90 F0 80 CA 
FCS8: AS 22 85 25 A0 00 84 24 
FCé0: F0 Ed 


FC70: ÀS 22 48 20 24 FC AS 28 
FC/8: 85 2Â AS 29 85 2B A4 21 
FC80: 88 6B 69 01 CS 23 B0 00 
FC88: 48 20 24 FC 81 28 91 2A 
FC90: 88 10 F9 30 Eli À0 00 20 
FC98: 9E FC B0O 86 A4 24 A9 A0 
FCADU: 91 28 C8 C4 21 90 F9 60 


FD1B: Eé 4E DO 02 Eé 

F020: 4F 2C 00 CO 10 F5 9f 28 
FD28: AD 00 C0 2C 10 C0 60 20 
F031: 0C 


FD42: 85 32 


FD83: DF 


e C080 puis RETURN : la lecture de 
cette adresse commute le second 
banc de RAM en lecture: ainsi, 
vous êtes en présence d’un Il re- 
connaissable à son curseur plein. 

e BSAVE APPLE 
2+.OBJ,A$FA75 L$30rF : pour 
conserver sur disque ces modifica- 
tions. 

e ou BSAVE APPLE 
2+.OBJA$FA7S5LS$2CF: pour 
garder l'usage des minuscules du 
lle 

e 3D0G si vous voulez rester en Il, 
ou bien CTRL-RESET si vous 
voulez retrouver votre //e. 


ll ne reste plus qu’à répéter la même 
chose dans un programme pour re- 
trouver, à volonté, un Apple IL. 


Programme de 


transformation 
Pour ce faire, nous utilisons le sous- 
programme, bien connu. de 





François Sennier 


SH.LAM, cité dans Pom's 2, entre 
autres, pour passer une commande 
au moniteur à partir d'un programme 
Basic. 

— Ligne 40 : on reconnaît la recopie 
du moniteur en RAM. 

— Ligne 50: les modifications sont 
introduites à partir du disque. N'ou- 
bliez pas que vous devez être dans la 
même configuration qu'à l’initialisa- 
tion : lecture en ROM, écriture en 
RAM. En cas de doute, faire aupara- 
vant en mode immédiat: PRINT 


PEEK (49281) qui commute en 
mode nonnal. 
— Ligne 60: modification du 


RESET. L'Apple //e commute auto- 
matiquement en mode nonnal {lec- 
ture ROM, écriture deuxième banc 
RAM) lors d’un RESET, il faut donc 
le réexpédier en lecture / écriture sur 
la RAM si l'on veut rester en IL C'est 
le rôle du petit sous-programme en 
$9DCS : 

LDA $C083 

LDA $C083 

RTS 


Lors d'un RESET, il y a saut au 
point d'entrée à chaud du DOS en 
$9DBF. Nous l'avons modifié (nor- 
malement, il teste quel Basic est actif 
et où il est situé) pour qu'il exécute 
le sous-programme en $9DCS5, puis 
reprenne le déroulement normal du 
Warmstart Basic  Applesoft en 
$9DD0. 

$9DBF: JSR $9DC5 

$9DC2: JMP $9DD0 


Enfin, toujours en ligne 60, 9DC5G, 
passé par la routine SH.LAM, 
commute la mémoire vive en lecture 
/ écriture et l’on est de nouveau en 
présence d’un Apple Il. Pour retour- 
ner sur le //e il suffit de faire : 

X = PEEK (49281). 

De la même manière, pour retrouver 


le li on fera : 
X = PEEK (—-16256) 


Au lecteur de substituer au END de 
la ligne 70 toute instruction à sa 
convenance, permettant le chaînage 
ou le chargement du programme si 
longtemps convoité, afin de disposer 
du programme de boot” lançant un 
{le sur un logiciel jusqu'alors réservé 
à son petit frère. 

A titre d'exemple. pour 
l'APP-L-IiSP, le HELLO compren- 
dra les deux instructions suivantes . 
BLOAD SLIST et BRUN LISP- 
CODE. 





1.4 bé 
+308 


D 
ET 


EE 


LA 


66 


JL1317 70 END 
150 REM ROUTINE S.H.LAM CPOM'S [2) 
10 PRINT CHFS$ (21): HCME 150 REM 
20 PCINT PRINT PATIENCE, JE mE TRANS 170 Y$ = Y$ + ” N B9CéG" 
FORME EN“ 180 FOR I = 1 TO LEN (Y$#) 
30 FRINT HTnB 1=: INMUERSE PRINT "APP 190 POKE 511 + ji, ASC Ç MIS CY$,1,1)> + 
LE 2+": NORMAL 128 
40 Ys = °COGN(COCGO.FFFFM": GOSLB 150 209 NEXT PÜKE 72,8: CALL - 144 
Se PRINT CHPFS (43>;"BL@AD APPLE 2+.08J" 210 RETURN 
EÙ *& = "?hREF:Z0O CS 90 4C O6 78 AD 83 CO 
AG 83 :0 60 N 98C5G": GOSUB 150 1PRHO 





Conversion chiffres-lettres 


François Fleury 


NUM-ALPHA est un programme de 
conversion de chiffres en lettres de 
toutes semmes supérieures à 1 cen- 
time et inférieures à mille milliards de 
francs 


Ce programme pourra donc être utile 
à tous ceux d'entre vous qui établis- 
sent des factures, pour les collectivi- 
tés publiques. ou des chèques à par- 
tr d’une imprimante. Îl est constitué 
de deux parties : 


Les lignes 9000 à 9265 contien- 
nent la routine de saisie de la somme 
en chiffres. 

— Les lignes 10000 à 10850 effec- 
tuent le formatage en lettres, en te- 
nant compte des diverses particulari- 
tés de la langue française, qu'il n'est 


e Cent n'est jamais précédé de 
“un”. 

e Cent et quatre-vingt s'accordent 
s'ils ne sont suivis d'aucun chiffre. 

e Mille est invariable et n'est pré- 
cédé de rien si le nombre de mil- 
liers est inférieur à deux. 

e On place ‘’’de” (millions ou mil- 
liards DE francs) si aucun chiffre 
ne suit. 

e etc. 


La structure est volontairement mo- 
dulaire (seules des variables Apple- 
soft commençant par Ÿ et Z sont uti- 
lisées) afin de faciliter la fusion de ce 
programme avec votre chef-d'oeuvre 
préféré ! 






N.D.L.R : un lecteur nous a pris en 
flagrant délit ! En 2ffet. dans Pom's 
16 (Trucs et astuces p. 70). nous 
avions oublié de publier le source de 
la routine HSCREEN que nous évo- 
quions. Sans plus tarder nous répa- 
rons notre erreur. 








20 56 FF _ sFF58 





ur Le 

0303- A TS 

Ft ‘eA”, DEX 

0305- BD 00 01 LDA  +0100,X 
0308- 18 CC 

0309- 69 1? ADC £s17 
0308- 25 0B STA 508 
0300- ED O1 O1  LDA  SsO101,X 
0310- 47 00 ADC ES00 
0312- BS 0C STA  s0C 
0314- A9 ac LD  £934C 
0316- 85 0A __ STA 404 
0318- 60 RTS 

0319- 20 OC Ei JSR SEI0C 
031C- A6 A! LOX sai 
031E- A4 A0 LOY  sA0 
0320- AS E2 à 
0322+ F4 SR  s { 
0323- Aa Es LDY %ES 
0327- B1 24 LDA  (826),Y 
0329— 25 30 AND ( 
0328- A8 TAN = 

032C- 4C 01 E3 JMP SE30! 





peut-être pas inutile de rappeler : = <: 
9095 IF YASCI) = CHR$ (13) THEN GOTO 9 
235 

9000 REM € MD D DD D 36 de HE Xe DE DE D DE DE D D Ne 9100 GOTO 9020 
9005 REM MOSULE DE SAISIE D’UNE SOMME E 9105 IF YAS(I) = CHR$S (13) THEN GOTO 9 

N CHIFFRES AU CLAVIER 235 
9010 REM TOUTES LES VARIABLES COMMENCEN 9110 IF YN = i THEN GOTO 9220 

T PAR Y 911S HTAB CI - 1): PRINT YASCI - 1);: 1F 
9015 REM dd D De De DE DE DE DE DE DE DE DE DE Je JE JE JE JE YN = 2 THEN GOTO 9215 
9020 CLEAR HOME VTAB 3: HTAB 20 9120 HTAS CI - 2): PRINT YAS(I - 2);: 1F 
9025 INUERSE : PRINT * “ss NORMAL :; PR YN = 3 THEN GOTO 9210 

INT 22" 9125 HTAB (I - 4): PRINT YAS(I = 4):;3 1F 
9030 INVERSE : PRINT * “s:: NORMAL : PR YN = 4 THEN GOTO 9205 

INTENSE 9130 HTAB (I - 5): PRINT YAS(I — S);: 1F 
9035 INVERSE : PRINT * #5: NORMAL : PR YN = S THEN GOTO 9200 

INTESGS 9135 HTAB (I — 6): PRINT YAS(CI - 6): IF 
9040 INVERSE : PRINT * “3: NORMAL : PR YN = 6 THEN GOTO 9195 

INT *,"; 9140 HTAB (I - 8): PRINT YAS(I - 8);: IF 
045 INVERSE PRINT * "5: NORMAL YN = 7 THEN GOTO 9190 
9050 DIM YAS(S5C) 9145 HTAB CI — 9): PRINT YAS(I — 9) 3;: IF 
9055 I = 34:YN = 0 YN = 8 THEN GOTO 9185 
9060 VTAB 3: PRINT "TOTAL FACTURE...... F 9150 HTAB {I - 10): PRINT YAS(I - 10):: 
9065 YBS = YBF + YAS I) IF YN = 9 THEN GOTO 9180 
9066 YN = YN + ! 9133 HTAB (I - 12): PRINT YAS{(I —- i2):: 
9070 IF YN = 13 THEN YASCI) = CHR$ (13) {F YN = 10 THEN GOTO 9175 

: GOTO 9105 9160 HTAB (I - 13): PRINT YASGCI — i3);: 
9075 VTAB 3: HTAB I 1F YN = 11 THEN GOTO 9170 
9080 GET YAS(ID: PRINT YAS(1); 9165 HTAB (I - 14): PRINT YASCI — 14) ;: 
9085 IF YAS(I) = °0" OR YASCI) = *1* OR IF YN = 12 THEN GOTO 9230 

YASCI) = *2" OR YAS(I) = *3* OR À | 9170 YAScI — 14) = YASCI — 13) 

&CI) = “4" OR YAS(I) = 5" THEN G 9175 YAS(I - 13) = YAS(I - 12) 

6TG 9105 91B0 YASCI —- 12) = YASCI — 10) 
9090 IF YAS(I)D = "és" OR YAS(I) = "7° OR 9185 YAS I — 10) = YASCI -— 9) 

YASC(ID = "8" OR YASCID = *9" THEN 9190 YASCI — 9) = YASCI - 8) 

GOTO 9105 9195 YA! - 8) = YASCI - 46) 
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P2ÜUO vABLI —- 6) = YASCI — S) 
9205 YASI - 5) = YAS(I - 4) 
P210 YAS(I - 4) = YASCI - 2) 
P215 YASCI - 2) = YASEI - 1) 
F220 YAS(I - i) = YAS(I) 
9225 Ÿ = P6S (1) 
9230 GOTO 9065 
9235 VTAB 3: HTAB (I + 2): GET YAS(I + 2 
D: IF YASOI + 2) = CHR$ 13) THEN 
PRINT *“00*: GOTO 9255 
9240 PRINT YAS(I + 2);:YB$S = YB$S + “," + 
YASCI + 2) 
9245 HTAB (I + 3): GET YASCI + 3): IF Ya 
SCI + 32 = CHR$S (13) THEN PRINT 
“0°: GOTO 9255 
9250 PRINT YAS(I + 3);:YB$ = YB$ + YAS(I 
+53;) 
9255 IF YN = 12 THEN GOTO 9243 
9256 IF YN = 13 THEN GOTO 9265 
9260 FOR YT = O0 TO Y - 21: VTAB 3: HTAR 
(20 + YT)>: PRINT " ": NEXT YT: GOT 
O 9265 
9243 VTAB 3: HTAB 20: PRINT " " 
92653 GOTO 10000 
10000 REM x 2636 36 36 3e 3 36 36 36 36 Je JE JE DE 6 EX 
10005 REM #34 3 2 36 366 62 36 366 36 36 JE 36 6 EX 
10010 REM MODULE DE TRANSFORMATION DE S 
OMME EN CHIFFRES À SOMME EN LETTRE 
S 
100153 REM TOUTES LES VARIABLES COMMENCE 
NT PAR 2 
10020 REM xxx 26 36 36 3e Xe 6 36 Je Je DE 36 JE JE JE DE JE 
10025 VUTAB i0: HTAB 1: PRINT *“CERTIFIEE 
CONFORME ET VERITABLE,LA PRES-ENTE 
FACTURE ARRETEE À LA SOMME DE.... 
10030 2K$ = °C.C.P BORDEAUX NO 123454 * 
10035 2T$ = “CENT* 
10040 2W$ = °CENTIME" 
10045 2E$ = “MILLE* 
10050 2F$ = *FRANC* 
10055 2N$ = "MILLION" 
10060 20$ = "MILLIARD" 
10065 REM ENTREE DE LA CHAINE DE CARA 
CTERE QUI CONSTITUE LE NOMBRE À ET 
UDIER 
100/0 2H$ = YBS$ 
10075 REM NOMBRE ENTIER OU AVEC DECIM 
ALE? 
10080 REM CAS PARTICULIER DES NOMBRES D 
E LONGUEUR 21<=2 AVEC OÙ SANS DECI 
MALE 
100835 REM A LA SUITE TOUS LES NSMBRES 
SONT AVEC 2 DECIMALES 
10090 21 = LEN (2H$) 
10095 IF 21 = 2 AND VAL (2H$) > = :07T 
HEN 2H$ = 2H$ + “.00":2I1 = LEN (Z 
H$): GOTO 10119 
10100 IF 21 = 1 AND VAL (2H$) > O0 THEN 
2H$ = 2H$ + “,00*:2i = LEN (248): 
GOTO 10110 
10105 IF 21 = 2 AND VAL (2ZHS) > = .10 
THEN 2H$ = 2H$ + "0":21 = LEN (2H 
$): GOTO 10110 
10110 REM 
10115 IF MID$ (2H$,21 - 2,1) = "“,." THEN 
GOTO 10130 
10120 IF MIODS (2H$,21 - 1,13 = "." THEN 
2H$ = 2H$ + "9":21 = 21 + 1: GOTO 
10130 
10125 2H$ = 2H$ + ".0U":21 = Zi + 3 
10130 REM 
10135 REM MILLE MILLION MILLIARD 
10140 REM Z3=PARTIE ENTIERE 


NN 
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10145 
191950 
10155 
10160 
10165 
10170 
10175 
10180 
10185 


10190 
10195 


10200 


10205 


10210 


10215 
10220 
10225 
10230 
10235 
10240 
10245 
10250 


10255 


10260 
10265 
10270 


10275 
10280 
10285 


10290 
10295 
10300 


10305 
10310 
10315 


10 320 


10325 
10330 
10335 
10340 
10345 
10350 


23;:=.21 —:3 
IF 23 = O0 THEN GOTO 10375 
1F 23 > O0 THEN 24 = 1 
IF 23 > 3 THEN 24 = 2 
IF 23 > 6 THEN 24 = 3 
IF 23 > 9 THEN 24 = 4 


CHIFFRES OÙ GROU 
GAUCHE 


REM  2S=NOMBRE DE 
PE DE 3 LE PLUS À 


25 = 23 - (CZ4 - 13 x 3):228 = LEF 
T$ (ZHS,29) 
IF 24 = 2 AND 228 = "1" THEN PRIN 


T "MILLE “;: GOTO 10260 


22 = VAL (222$): GOSUB 10425 
1F 24 = 4 AND MID$ (2H$,2S + 1,9) 
= "000000000" AND 22 = 1 THEN PR 
INT " *:2D$;" ";"DE FRANCS “;: GOT 
0 10375 
IF 24 = 4 AND MIDS$S (2ZH$,25 + 1,9) 
= “000000000" AND 22 > 1 THEN PR 
INT SERIES MS MS DE -FRANCS: 
3: GOTO 10375 
IF 24 = 3 AND MIDO$S (2H$,25 + 1,6) 
= "000000" AND 22 = 1 THEN PRINT 
"3 2N$;" “3;"DE FRANCS ";: GOTO 1 
0375 
IF 24 = 3 AND MID$ {ZH$,2S + 1,6) 
= "000000" AND 22 > 1 THEN PRINT 
M M ZNS CE SEL PSMDE FRANEST "3: 
GOTO 10375 
IF 24 = 4 AND 22 > 1 THEN PRINT * 
LD TES EN 
1F 24 = 4 AND 22 = 1 THEN PRINT * 
PAUSE 
IF 24 = 3 AND 22 > 1 THEN PRINT * 
":2NS + “Su; Le 
IF 24 = 3 AND 22 = { THEN PRINT * 
*;: NS; * Ce 
IF 24 = 2 AND 22 > 1 THEN PRINT * 
TRES es 
IF 24 = 1 AND 22 > 1 THEN PRINT * 
MAP MSN. A 
IF 24 = 1 AND 22 < = 1 THEN  PRIN 
TELE SAMU 
IF 24 = i THEN GOTO 10375 
IF 24 = 3 AND MID$S (2H$,235 + 1,3) 
= "001" THEN PRINT " "3532E$;" "3: 
GOTO 10305 
22$ = MIDS (2H$,25 + 1,3) 
22 = VAL (22#$): GOSUB 10425 
IF 24 = 4 AND 22 > i THEN PRINT * 
MS PNY: EE D MS RS TS 
IF 24 = 4 AND 22 = 1 THEN PRINT * 
"s2NS;" "; 
IF 24 = 3 AND 22 > O THEN PRINT * 
*s2ES:" 
IF 24 = 2 THEN PRINT *“ *°:;,2F$ + "S 
“.# n 
3 3 
iF 24 = 2 THEN GOTO 10375 
IF 24 = 1 THEN GOTO 10375 
IF 24 = 4 AND MID$ (2H$,25 + 4,3) 
= "001" THEN PRINT * ";2E$;" "3: 
GOTO 10340 
22% = MIDS (2H$,25 + 4,3) 
22 = VAL (22$): GOSUB 10425 
IF 24 = 4 AND 22 > O THEN PRINT “ 
MALESs "to: 
IF 24 = 3 THEN FRINT “ ";,2F# + "S 
3 , 
IF 24 = 3 THEN GOTO 10375 
IF 24 = 2 THEN GOTO 10375 
IF 24 = 1 THEN GOTO 10375 
225 = MIDS (2H$,25 + 7,3) 
22 = VAE (22$): GOSUB 10425 
IF 24 = 4 THEN PRINT *“ ";,;2F$ + "S 


1 
Le 
LE 


pt _ L 24 
23 L10bbe TTENRNAIT 





67 


3 
IF z4 


= 4 THEN GOTO 10375 

IF Z4 = 3 THEN GOTO 10375 

IF 24 = 2 THEN GOTO 10375 

IF 24 = 1 THEN GOTO 10375 

REM CENT IMES 
Z28 = MID$ (2H$,23 + 2,2) 
22 = VAL (22#): GOSUB 10425 

IF ZZ > 1 THEN PRINT " ";2WU$ + “S 
IF 22 = 1 THEN PRINT “ °;2W$ ; 
PRINT PRINT PRINT "EN VOTRE AI 
MABLE REGLEMENT “: PRINT 2ZK$ 

PRINT PRINT FLASH : PRINT "NOU 
VELLE VALEUR,.,CO/N)D..7"3;: GET 2% 
IF Z$5 = “8" THEN HOME : GOTO 7000 
IF 2$ = "N" THEN GGTO 10850 

IF 2$ < > "N" THEN GOTO 10405 
REM MODULE FRINCIPAL-GROUPE BE 
3 CHIFFRES- 

IF 2Z = O0 THEN GOTO 10845 

IF ZZ < = 9 THEN 2X$ = " "+ ST 
R$ (Z2): GOTO 10450 

IF 22 4 = 99 THEN 2X$ = " " + ST 
R$ (ZZ): GOTO 10450 

IF ZZ < = 999 THEN 2X$ = STR$ (2 
Z): GOTO 10450 

REM 
2A$S = LEFTS (2XS,1) 
ZUS = 2A$: GOSUS 10510 
ZAS = 20 
2B$ = MIDS {2X$,2,1) 
208 = ZB$: GOSUB 10570 
285 = 20 
ZCS = MIDS (2ZX$,3,1) 
ZUS = ZC$: GOSUB 10510 
2C = ZUS 

GOSUB 10635 

RE TÜRN 

REM CALCUL DES UNITES ET BES CE 
NTAINES 

IF 20$ = “]" THEN 2ZU$ = "UN" 

IF 20$ = "2" THEN 2U$ = "DEUX" 

IF 2Z0$ = "3" THEN 20$ = "TROIS* 

IF 20$ = "q" THEN 20$ = "QUATRE" 
IF ZU$ = "St THEN 20U$ = "CINQ" 

IF 20$ = "6" THEN 20$ = "SIX" 

IF 2U$ = "7" THEN 20$ = "SEPT" 

IF 220$ = "9" THEN 20$ = "HUIT" 

IF 2U$ = "9" THEN 2ZU$ = "NEUF" 

IF 20V$ = "0" THEN 20$ = " * 

RETURN 

REM EX 6 JE 6 JE JE JE 36 JE JE 6 DE 6 6 6 Xe JE Xe 6 JE EE 
IF ZC$ = "UN" THEN 28$ = "QUATRE-U 
INGT":2C$ = "ONZE": RETURN 

IF 2ZC$ = "DEUX" THEN 2B$ = "QUATRE 
-UVINGT":2C$ = "DOUZE": RETURN 

IF 2CH = "TROIS" THEN 2B$ = "QUATR 
E-VINGT":2C$ = "TREIZE": RETURN 

IF ZC$ = "QUATRE" THEN 2B$ = "QUAT 
RE-VINGT":2C$ = "QUATORZE": RETURN 
IF ZC$ = “CINQ" THEN 2B$ = "QUATRE 
—UINGT":2ZC$ = "QUINZE": RETURN 

IF 2C$ = "SIX" THEN 285 = "QUATRE- 
UINGT*:2C$ = "SEIZE": RETURN 

RE TURN 

REM + 6 x Xe JE JE JE JE 6 6 6 6 6 6 6 Xe 6 JE 6 6 6 6 € 
PRINT ZAS:" ";2ZT$;: GOTO 10845 
PRINT 2ZAS;" °3:2T$;" ";2B$;: GOTO 1 
0845 

IF 2A$ = " " AND 28$ = " " THEN P 
RINT 2C#3;: GOTO 10845 

IF 2ZA$S = * " THEN PRINT 2B$:;° "32 





C$;: GOTO 10845 

1F 2B$ = " " AND 2C$ = " " THEN P 
RINT 2A$;" ";2T$;: GOTO 10845 

IF 2ZCp = " " THEN PRINT 2ZA$:;" ";,2 

T$;" ";,2B$;: GOTO 10845 

PRINT 2A$;" ":27T:" ";2B$:;" ":2C$; 
RETURN 

HOME HTAB 17: VUTAB 10: FLASH : P 
RINT "AU REVOIR": NORMAL : ENB 

REM CALCUL BES DIZAINES 

IF 2U$ = "1" THEN 20$ = "DIX" 

IF 2U$ = "2" THEN 220$ = "UINGT" 

IF 20$ = "3" THEN 240$ = "TRENTE" 
IF 20$ = "4" THEN 20$ = "QUARANTE”" 
IF 2ZU$ = "S5* THEN ZVE = "CINQUANTE 
IF 2U$ = "é" THEN 2Z0U$ = * SOIXANTE" 
IF ZU$ = 7" THEN 20$ = "SOIXANTE- 
DIX" 

IF 2U$ = “R" THEN 20% = "QUATRE-UI 
NGT* 

IF 208$ = 9" THEN 20$ = "QUATRE-VI 
NGT-DIX" 

IF 220$ = "0" THEN 20$ = " * 

RETURN 

REM JD JE JE NE DEN EE XX DEN NE KE XX EX 
IF ZAS = "UN" THEN 2A$ = “":2T$ = 
"CENT": GOTO 10655 

IF ZA$S = " " THEN 2T$ = "*°: GOTO 1 
0655 

IF ZA < > “ “ THEN 2T$ = "CENT" 
IF 2B$ = " " AND 2C$ = " “ THEN ZT 
$ = "CENTS*: GOTO 10810 

REM 6 26 D 6 D JE DE DE EE DE EN EE NE À À À 

IF 2B$ = "DIX" THEN GOSUB 10690: 
GOTO 10820 

IF 2B$ = "SOIXANTE-O0IX" THEN  GOSU 
B 10730: GOTO 10820 

IF 2B$ — "QUATRE-UVUINGT" AND 2CH = 
" " THEN 2B$ = "QUATRE-VINGTS": GO 
TO 10815 

IF 2B8$ = "QUATRE-UINGT-DIX" THEN 
GOSUB 10770: GOTDO 10820 

IF 2B$ < > “ * AND 2CH = “UN'" THE 
N 2C$ = "ET UN" 

GOTO 10820 

REM JE 26 D JE DE 6 DE 6 6 6 DE 6 EE EE 6 EE € À 

IF 2C$ = "UN" THEN 2B$ = "":2C$ = 
"ONZE": RETURN 

IF 2C$ = "PREUX" THEN 2B$ = "*“:2C$ 
= "DOUZE": RETURN 

IF 2C$ = "TROIS" THEN 2B$ = "":2C$ 
= M"TREIZE": RETURN 

IF 2C$ = "QUATRE" THEN 2B$ = "":2C 
$ — "QUATORZE": RETURN 

IF 2ZC$ = "CINQ" THEN 2B$ = *":2C$ 
— "QUINZE": RETURN 

IF 2C$ = "SIX" THEN 2B$ = "":2C$ = 
"SEIZE": RETURN 

RETURN 

REM JE JE DE JE 36 JE De JE 6 JE JE DE JE JE JE DE DE DE EE 6 6e À 

IF 2C$ = "UN" THEN 2B$ = "SOIXANTE 
"1:2C$ = “ET ONZE": RETURN 

IF 2C$ = "DEUX" THEN 2B$ = "SOIXAN 
TE":2C$ = "DOUZE": RETURN 

IF 2C$ = "TROIS" THEN 2B$ = "SOIXA 
NTE":2C8 = "TREIZE": RETURN 

IF 2C$ = "QUATRE" THEN 2B$ = "SOIX 
ANTE":2C$ = "QUATORZE": RETURN 

IF 2C$ = "CINQ" THEN 2B$ = "SOIXAN 
TE":2C8 = "QUINZE": RETURN 

IF 2C$ = "SIX" THEN 2B$ = "S@IXANT 
E":2C$ = "SEIZE": RETURN 

RETURN 


Dh PUIS À 4 


DE 


Pom's n° 17 


"The rumour mil” (le moulin à ru- 
meurs), c'est ainsi quon commence 
à désigner Apple dans le pett monde 
des fanatiques américains de la 
micro. Îl faut dire, qu'à Cupertino, le 
siège d'Apple n'a jamais autant ré- 
sonné de ces fameuses rumeurs. À la 
fin de l'année 1984, John Sculley 
annonçait la sorte d'un Apple /x 
(disquettes de 3 pouces 1/2, nou- 
veau processeur, et une capacité mé- 
moire importante). Au début de l'an- 
née 1985. Steve Wozniak. le 
créateur de l'Apple démentait le 
PDG, ‘ce projet est mort’ disait-il 
jors d'interview donnée en Nouvelle- 
Zélande, et reprise dans le magazine 
britannique Apple User. Cette décla- 
ration à causé quelques bruits à 
Cupertino; et fin janvier Wozniak 
quittait Apple, pour se lancer dans la 
vidéo. Un départ qui n’a pas man- 
qué d'inquiéter tous les développeurs 
de programmes pour l'Apple //. Cet 
ordinateur serait-il bientôt délaissé 
par Apple ? 

Difficile à imaginer, quand on sait 
que le // s'est déjà vendu à plus de 
deux millions et demi d'exemplaires. 
Dans sa dernière interview. Steve 
Wozniak annonçait quand même 
plusieurs choses intéressantes. 


Le rôle assigné au //x serait en fait 
rempli par l'Apple //, et ce grâce à 
une carte. Une de ces cartes d'exten- 
sion qui font les beaux jours du //e. 
Celle-ci contiendrait le nouveau bi- 
processeur 65816. Quant à sa dispo- 
nibilité, le problème semble être de 
surmonter les défauts de jeunesse du 
65816 qui le rendent actuellement 
peu fiable, donc très onéreux. Mais, 
tous les processeurs ont connu ces 
défauts là. 

D'autre part, une augmentation de la 
mémoire qui porterait la capacité de 
l'Apple // à 256 Ko. En attendant, 
deux innovations semblent être bien 
plus proches. 

Il s'agit d'abord d'une modification 
du clavier de l'Apple //e. qui devien- 
drait comparable à celui du //c. Avec 
notamment. la possibilité d'obtenir 
des chiffres, dès que la touche de 
verrouillage majuscule est enfoncée 
La seconde nouveauté concerne les 
disquettes. L'Apple // abandonnerait 
(progressivement) le format 5 pouces 
1/4, pour adopter celui du Macintosh 
(3 pouces 1/2). On parle pour ces 
disquettes d'une capacité pouvant at- 
teindre 1,6 mégaoctets. Il s’agirait 
alors vraissemblablement de lecteurs 
de disquettes double face, double 
densité, Eh bien, même si le //e est 
toujours très demandé, le //c n'est 
pes pour autant délaissé. 


Du nouveau pour 
l'Apple //c 


Qui l’eu cru, l'Apple //c a aujourd'hui 
un écran plat à cristaux liquides ! Il 
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Micro-informations 


sera disponible dès le mois d'avril 
1985 pour un prix d'environ 6000 
Frs HT. 

ll ne fait qu'accroître la transportabi- 
lité de la machine. En effet, il pèse 
1,1 kg et mesure 13,8 cm de large 
sur 29 cm de long par 4 cm d'épais- 
seur. | affiche 24 lignes sur 80 co- 
lonnes (en mode texte) et 560 points 
sur 192 lignes (en mode graphique). 

La technologie à cristaux liquides 
permet une consommation réduite et 
une alimentation par le connecteur 
DB15 du //c. 

Pour plus de confort d'utilisation et 
un angle de vision optimum, l’écran 
plat de l'Apple //c est inclinable. Il 
doit être utilisé dans un environne- 
ment lumineux d'intensité suffisante. 


Les précautions d'utilisation : 

Il est conseillé d'éviter de l'exposer 
aux rayons solaires. de le démonter 
sous peine d’un endommagement 
qui serait peut-être irrémédiable. 


L'Apple // connaît le DOS 3,3, le 
ProDOS, et pourra disposer de 
CP/M. Une carte est prévue à cet 
effet et permettra de développer et 
d'exécuter tout programme standard 
pour Apple //e sous CP/M, sans mo- 
dification préalable. et ce 30% plus 
vite que la plupart des cartes CP/M 
pour Apple //e. 

Le module est complètement trans- 
parent pour l'utilisateur. Cette carte 
comporte un coprocesseur 280 et 
permet donc l'exécution directe de 
code Z80 ou 8080. De ce fait, elle 
est compatible à 100% avec CP:M 
version 2.23. 


Les programmes 
En France 


Contrôle X, qui a réussi l’exploit de 
vendre aux américains de Hayden 
son programme intégré CX MacBase 
pour le Macintosh. met la dernière 
main à un programme pour le // 
dont le nom de code est encore Pro- 
Base. Il s'agirait d'une gestion de fi- 
chiers doublée d'un tableur intégré, 
permettant le transfert des données 
des fiches vers le tableur. Utilisation 
de la souris, de 128 Ko, d'un écran 
totalement graphique. on en enten- 
dra encore parler. Les afficionados 
de CX Base 200, qui réclamaient 80 
colonnes, doivent déjà se réjouir. 


Le nouveau traitement de texte Gri- 
bouille est le premier, à notre 
connaissance pour Apple //, à couper 
automatiquement les mots, confor- 
mément à la grammaire française. Il 
a été développé, pour la société Ber- 
lingot, par Madeleine Hodé. Aide 
mémoire en 10 tableaux intégrés au 
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Jean-Michel Gourévitch 


programme, glossaire de 1000 à 
22000 caractères, dispositif évitant 
les sauts de lignes où de pages inop- 
portuns, impression de graphiques 
intégrés au texte, possibilité de définir 
ses propres caractères. On nous pro- 
met la facilité d'utilisation et la rapi- 
dité pour un prix de 1700 Frs. C'est 
bien alléchant. 


De l’autre côté de l'Atlantique 


Les programmeurs s’assoupiraient- 
ils? {| serait temps qu'un nouvel 
Apple les réveillent. On peut remar- 
quer un programme de jardinage, 
Ortho, qui aide à organiser un jar- 
din. 

Un programme d'apprentissage de la 
musique que l'on dit aisé: Magic 
piano d'EduSoft pour environ 50 
dollars. 


Deux nouveaux programmes de 
Beagle Bros. L'un (LO. Silver) est un 
jeu de stratégie : il faut construire un 
super ordinateur en évitant le gang 
des ”’bugs” (30 dollars); l'autre est 
un utilitaire DCode permettant de 
débugger et de gagner de la place 
dans les programmes (40 dollars). 
Pour exploiter au mieux la tablette 
Koala Pad, Koala propose des outils 
pour programmeurs, et un Graphic 
Exhibitor permettant de présenter 
les dessins réalisés dans une sé- 
quence (40 dollars chacun). 


Fabriquer des cartes d'identité à 
l'américaine, c’est possible avec le 
ID Maker de Scarlet Software. On 
peut même y incorporer son propre 
logo, choisir les caractères, il en coû- 
tera 50 dollars. 


Quelques accessoires 


Tout d'abord un petit gadget qui 
convertit la sortie lecteur de l'Apple 
//c aux normes des anciens lecteurs. 
Ainsi, on peut utiliser n'importe quel 
lecteur prévu pour les Il+ et //e sur 
le //c. grâce à Adapt a dise de 
Computer Accents (30 doilars). 
Ensuite, un capot de protection pour 
le clavier du //e, permettant de le 
protéger contre divers liquides, il 
s'agit du Hard Cover de Diversified 
Manufacturing (disponible aussi pour 
le Macintosh). 

Et surtout des lecteurs de disquettes 
3 pouces 1/2. Ils existent déjà ? Eh 
ou, c'est l'oeuvre de Haba. Ce lec- 
teur est livré avec des programmes 
de communication, des formats pré- 
difinis pour Appleworks, et un utili- 
taire permettant de transférer Apple- 
Works sur une disquette 3 pouces 
Le pour un prix d'environ 450 dol- 
ars. 
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Un nouveau confrère 


RS 232 est l'hebdomadaire informa- 
tique consacré aux petites annonces 
(gratuites). Toutefois, on y trouve de 
nombreuses rubnques {clubs infor- 
matiques. contact, jeux....). Il est né. 
depuis plus de six mois. pour faciliter 
l'expression et les contacts entre par- 
ticuliers Ce magazine est indépen- 
dant et compte le rester. Distribué 
dans plus de 60 grandes villes, vous 
le trouverez dans les kiosques au prix 
de 3F Un prix dérisoire qui lui per- 
mettra de vous aider et de se déve- 
lopper 


Vive le Mac 


Le Macintoch devient l'enfant chéti 
des programmeurs Même si aux 
Etats-Unis, les utilisateurs sont furieux 
d'avoir dû débourser 1008 dollars 
pour se payer le kit d'extension 512 
Ko (là-bas, compte tenu des baisses 
de prix, les nouveaux utilisateurs 
achetant un 512 Ko le paient moins 
cher que le 128 Ko plus la transfor- 
mation). Leurs vociférations couvrent 
même parfois les bruyantes campa- 
gnes publicitaires d'Apple. 

Voici donc un Mac qui est allé se 
rhabiller Transformé en portable, il 
s'appelle maintenant le Mac Colby, 
et peut intégrer toute une série de 
périphériques: deuxième lecteur. 
modem, disque dur, lecteur de code 
barre... 


Voici surtout un disque dur interne 
révolutionnaire, il s'intègre à l'inté- 
ñeur du coffret de Macintosh C'est 
l'hyperdrive de General Computer. Il 
est d’une capacité de 10 mégaoctets, 
sur un disque dur de 3 pouces 1/2. 
Ainsi, les temps d'accès seraient 20 
fois plus rapides qu'avec une dlis- 
quette et 7 fois plus rapides qu’avec 
un disque dur externe. Son prix est 
de $2800 avec l'extension 512 Ko et 
$2200 sans extension. 


Et puis, pour ceux qui ont une 
bonne vue, une rallonge (4 mètres) 
pour le câble du clavier. Elle est ven- 
due par Yas et coûte 10 dollars. 


Des produits 
comme s'il en pleuvait 


Tout d'abord. un processeur d'équa- 
tons. c'est le célèbre TK!Solver. mis 
au point par les inventeurs de Visi- 
calc. || remodèle des équations jus- 
qu'à trouver les inconnues Avec 
TK'Solver. les inconnues, connait 
plus' Ce programme existait déjà 
pour d’autres ordinateurs. il prend sa 
pleine valeur sur Mac D'une éton- 
nante rapidité de calculs, il va faire le 
désespoir (mais aussi le bonheur} des 
professeurs de mathématiques Ce 
programme permettant de résoudre 
quasi instantanément et de façon 
magique des problèmes (pour les- 


quels il fallait des journées entières 
de travail) est promis à un bel avenir 
1] pourrait même en inciter certains à 
acheter un Macintosh. Il est vendu 
3500 Frs par Software Arts 


MacFortran est une implémentation 
sur Macintosh du Fortran ANS] 77. Il 
permet de développer des applica- 
tons utilisant le système de gestion 
de bureau Il contient un debugger 
symbolique au niveau source et une 
routine VIRTUAL permettant aux ta- 
bleaux plus grands que la mémoire 
d'être gérés en mémoire virtuelle sur 
disque. 

ll autorise la programmation structu- 
rée avec sous-programmes, fonc- 
tions, procédures... (très proche du 
Pascal). Son prix est d'environ 5800 
Frs HT. 


MacPlot est un logiciel conçu pour 
travailler avec MacDraw, mais ac- 
cepte les graphiques de Chart, Mac- 
Project, CX MacBase.….. Il analyse 
l'image et la trace avec plusieurs cou- 
leurs et/ou épaisseurs de traits. 
L'échelle du document original est 
respectée mais peut ètre modifiée, la 
vitesse est paramétrable selon le type 
de support (papier, film...) Il se 
connecte sur le port modem du Ma- 
cintosh. Les deux logiciels cités ci- 
dessus sont distribués par Alpha Sys- 
tèmes. 


Laser Writer est l'imprimante à laser 

haute résolution qu'’annonce Apple 

Elle est très différente des autres im- 

primantes à laser En effet. elle se 

compose de trois éléments pnnci- 
paux : 

e un ordinateur équipé d'un proces- 
seur MC68000 avec un mégaoctet 
et demi de mémoire centre et 
512 Ko de ROM (c'est le plus gros 
ordinateur qu'Apple ait Jamais 
construit). 

e limpimante à laser Canon LB- 
CX210 

e le langage de 

PostScript 

LaserWriter sera disponible en 

France en Juin 1985 et son prix sera 

d'environ 70 000 F 


Appletalk est un réseau personnel. 
d'une grande simplicité d'installation 
et d'utilisation Îl permet d'intercon- 
necter des Macintosh (32 au maxi- 
mum sur une distance de 300 
mètres). par le biais de simples 
câbles bi-fils. afin de faciliter les 
échanges d'informations et les trns- 
ferts de documents I] offre la possibi- 
lité aux utilisateurs de partager des 
ressources communes. tel un disque 
de grande capacité ou l'imprimante 
LaserWriter Ïl est prévu pour 
communiquer avec d'autres réseaux 
ou ordinateurs centraux. | est entiè- 
rement géré par l'intelligence de cha- 
que élément. Ceux-ci pouvant être 
des Macintosh 128K — 512K — XL 
(Lisa), des périphériques. 


télécomposition 
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Appletalk sera disponible en France 
vers le mois de Juin pour un prix in- 
férieur à 500 Frs par connexion. 


MacBooster est un nouveau logiciel 
qui apporte un plus quant au confort 
d'utilisation du Mac 512 Ko Il per- 
met de diminuer les temps d'accès 
aux documents les plus fréquemment 
employés Il offre à l'utilisateur la 
possibilité de choisir la taille mémoire 
allouée et les lecteurs de disquettes à 
desservir. MacBooster reste en mé- 
moire; ainsi, les portions de fichiers 
les plus référencées sont recopiées en 
mémoire de façon à obtenir un accès 
presque immédiat. 

MacBooster est compatible avec 
toutes les applications qui accèdent 
aux disquettes au moyen du système 
de fichiers standard du Macintosh. Il 
fonctionne selon les principes des 
anté-mémoires et des systèmes de 
migration de fichiers. L'utilisation de 
MacBooster ne modifie pas le 
contenu de la disquette. Ce logiciel a 
été développé par Jean-Luc Delatre. 


MacPublisher, distribué par Sono- 
tec pennet de réaliser une lettre ou 
un journal, de façon spectaculaire. 


Un nouveau traitement de ‘texte bri- 
tannique Macauthor d’icon Techno- 
logy permet de choisir facilement le 
style d'écriture d’un document. de 
réaliser des documents de 698 
pages. d'insérer dans le texte des ca- 
ractères inhabituels. musicaux,.… 


À propos de traitement de texte. et 
en attendant Word (disponible au 
printemps), MacWiite version 3.2 de- 
vrait être bientôt disponible. A noter, 
la possibilité de stocker et surtout 
d'imprimer des documents de 65 
pages. Le numéro de la page en 
cours indiqué sur l'ascenseur, un 
choix de menu permettant d'aller di- 
rectement à une page donnée, la 
possibilité de centrer ou de justifier 
individuellement un élément du 
texte... 


La version améliorée de Think 
Tank pour 512 Ko, est là. Elle pos- 
sède, enfin, toutes les qualités de la 
version de l'Apple //, et notamment 
les paragraphes. la possibilité d’obte- 
nir des documents de 35 pages, d'y 
incorporer des graphiques ou des 
dessins... Une version complètement 
différente de celle pour le 128 Ko. 


Désormais le Lisa s'appellera Macin- 
tosh XL. Ce nouveau nom symbolise 
la parfaite adaptation de Lisa à l'en- 
vironnement de Macintosh. Il utilise 
tous les logiciels du Macintosh et est 
totalement compatible avec les nou- 
veaux produits annoncés par Apple 
(Appletalk, LaserWiiter…). 


Et. puis, pour l'automne un match 
au sommet s'annonce passionnant. 
L'équipe dirigée par Paul Lutus, qui 
a créé Appleworks est passée chez 
Microsoft et y prépare un programme 
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intégré pour le Macintosh. qui pour- 
rait concurrencer le célèbre Jazz de 
Lotus, déjà créateur de 1. 2. 3 pour 
lIBM PC. L'année Mac s'annonce 
décidément bien. 


Les livres 


Les produits d'Enseignement Assisté 
par Ordinateur nous envahissent. 
Chez Magnard : 

— Sésame (230 F) est destiné à ap- 
prendre les rudiments du Basic aux 
enfants. 

— Le Basic (990 F), Racines verbales 
{490 F). Homophones (490 F). Logi- 
que et Math (560 F). Ces produits, 
d’origine canadienne. nous semblent 
dans l’ensemble bien faits. si ce n’est 
pour le dernier qui aurait mérité 
d’être traduit du français canadien en 
franco-français. 


— Macintosh, modes d'emploi, de 
William Skyvington, Seuil / La Re- 
cherche, 150 F. Traduction. C'est le 
énième livre d'initiation au Macin- 
tosh, à croire que les pauvres ache- 
teurs de ce matériel sont totalement 
incapables de lire les notices pourtant 
bien faites d'Apple. À part les classi- 
ques MacWrite, Paint, Multplan et 
Chart, on y trouve une présentation 
de MacDraw et MacProject. Un petit 
plus par rapport aux livres qui n’en 
parlent pas. 

— Apple, modes d'emploi, de Wil- 
liam Skyvington, Seuil / La Recher- 


che, 110 F. Traduction On retrouve 
le même principe de description de 
log'ciels standards mais, ce qui est 
moins fréquent. appliqué à l'Apple //. 
IL s’agit principalement de modes 
d'emploi fort résumés (mais sans 
fiche synthétique ni glossaire) d'Ap- 
ple Writer, Quick File, Multiplan et 
Business Graphics. avec une touche 
de Calvados. 


— 250 questions sur la micro-infor- 
matque de Ilya Virgatchik, Marabout 
service. Les questions sont classées 
par thèmes: généralités, achat et 
maintenance, questions techniques, 
systèmes d'exploitation,  périphéri- 
ques, langages. programmation. pro- 
grammes d'application, jeux / ensei- 
gnement. Heureusement, un index 
de quatre pages permet un peu de 
s'y retrouver. J'aurais préféré un 
sommaire détaillé avec la liste des 
questions, afin de pouvoir mieux or- 
ganiser la consultation et la lecture. 
Tel qu'il est, ce livre est malheureu- 
sement peu pratique à lire pour ré- 
pondre aux questions qu'on se pose, 
puisqu'on ne peut les connaître 
qu'en le lisant de bout en bout … 


Adresses 


Contrôle X - Tour Maine Montpar- 
nasse - 33 ave du Maine - 75755 
Paris Cedex 15 


Berlingot - 18 rue Elie Duclaux - 
75015 Paris 

Ortho Information Services - 575 
Market St - San Francisco - CA 
94105 

EduSoft - PO Box 25600 - Berke- 
ley - CA 94702 

Beagle Bros - 3990 Old Town Ave 
- suite 1026 - San Diego CA 92110 
Koala - 3100 Patrick Henry Drive - 
Santa Clara CA 95052 

Scarlet Software - PO Box 11166 
Milwaukee - WI 53211 

Computer Accents - PO Box 5307 
Kingwood - TX 77325 

Diversified Manufacturings  - 
4722 &th Street - Wichita KS 67208 
Haba Systems - 15154 Stagg 
Street - Van Nuys CA 91405 1025 
Colby Computer - 849 Indepen- 
dance Ave MountainView - CA 
94043 

General Computer - 2155 First 
street - Cambridge MA 02142 

YAS - 1525 N Elston Chicago - IL 
60622 

Jean-Luc Delatre - 7, rue de Ram- 
bouillet - 78120 Clairefontaine - Tél 
(3) 484 50.51 

Apple Seedrin - ZA de Courta- 
boeuf - Ave de l'Océanie, BP 131 - 
91944 Les Ulis - Tél (6) 928.0139 
Alpha Systèmes - 16 rue de Saus- 
sure - 75017 Paris - Tél 763.59.81 
RS 232 - 109 rue G. Lauriau - 
93100 Montreuil - Tél 859 71.01 





En ce qui conceme article sur le 
"Disque Virtuel 64K” publié dans 
Pom's 14, je me demande 5il est 
possible d'utiliser une carte d’exten- 
sion 128 Ko comme disque virtuel. 
et de faire tourner un programme 
comme CX BASE 200 ou PFS. 


Mr François Fossat - Immeuble Le 
Tilleul - 74 bd Loius Roux - 96700 
Saint Laurent du Var 


Le disque virtuel est fait pour fonc- 
tionner avec le DOS 3.3 et les pro- 
grammes tournant” sous ce sys- 
tème. Par conséquent. les 
programmes CX BASE 200 et PFS, 
ayant leur propre système d'exploita- 
tion, ne peuvent utiliser le disque vir- 
tuel proposé dans Pom's. 


Est-il possible de copier des disquet- 
tes formattées sous Pascal UCSD ou 
CP/M à laide du programme 
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Courrier des lecteurs 


COPY A se trouvant sur la disquette 
Master DOS 33 ? 


Mr Stéphane Lévy - 142 rue Gam- 
betta - 45120 Chalette 


Le programme COPYA vous permet, 
effectivement, de copier toutes dis- 
quettes  formattées sous Pascal 
UCSD, CP;M, ProDOS.. 


A propos de "Disk Manager 2”. j'ai- 
merais savoir quel est le niveau de 
son utilitaire "Ultra Copie” par rap- 
port à Locksmith 5.0 ? Est-il en fran- 
çais ? 

Mr Gilbert Roche - Quartier Jumel, 
Saint Julien du Serre - 07200 Aube- 
nas 


Ultra Copie et Locksmith ne sont pas 
comparables. 

Locksmith 50 permet. entre autres. 
de copier certaines disquettes proté- 
gées, de copier très rapidement des 





Olivier Herz 


disquettes formattées en 16 ou 8 sec- 
teurs (DOS 3.3, PreDOS, CP:M, 
Pascal). 

Ultra Copie, quant à lui, permet de 
copier des disquettes formattées en 
16 secteurs : soit normalement, soit 
sélectivement en ne copiant que les 
secteurs qui sont effectivement utili- 
sés. Ce procédé est d'autant plus ra- 
pide que la disquette originale est 
moins remplie. 


Le Disk Manager est, à notre 
connaissance, un utilitaire sans précé- 
dent. Il permet d'accéder directement 
aux secteurs de la disquette pour 
écrire des programmes en Basic agis- 
sant sur la disquette {gestion de cata- 
logues, utilitaires.….): et ce. depuis le 
Basic. De telles choses n'étaient réali- 
sables qu'avec des routines en as- 
sembleur. 

Le Disk Manager est l'oeuvre d’un 
lecteur français de Pom's, il est donc 
en français, ainsi que sa documenta- 
tion. 
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Par quel biais peut-on réaliser le dé- 
placement du DOS vers la carte lan- 
gage 16 Ko ? 

Mr Pradayrol - 21 rue Guenegaud - 
75006 Paris 


De nombreux logiciels. le plus sou- 
vent vendus avec une carte d'exten- 
sion 64 où 128 Ko. permettent de 
placer ie DOS sur la carte langage. 
Le programme MEMORY MASTER. 
par exemple. qui est fourni avec la 
carte LEGEND (testée dans Pom's 
5) DIVERSI DOS {DOS 33 amé- 
lioré) possède un utilitaire, DDMO- 
VER, qui le reloge sur la carte lan- 
gage Et enfin. plusieurs revues ont 
publié des programmes déplaçant le 
DOS sur la carte 16 Ko La plus cé- 
lèbre est CALL APPLE (CALL 
A.P.P.LE in Depth. All about DOS), 
avec son programme DOS MOVER. 


Je souhaiterais avoir quelques éclair. 
cissements sur les entrées / sorties de 
l'Apple //e avec la carte 80 colonnes. 
J'essaie vainement de faire une copie 
d'écran 80 colonnes sur une impri- 
mante DMP. 


Maurice Gaston - Boussieyral - Saint 
André Allas - 24200 Sarlat 


La méthode suivante permet de réa- 
liser une copie d'écran en 80 colon- 
nes Toutefois la place mémoire né- 
cessaire est importante. 


1-Tranférer la page texte dans la mé- 
moire à l'endroit souhaité ($2000 — 
$23FF par exemple). Pour ce faire, 
utiliser la routine MOVE du moniteur 
($FE2C). qui déplace la zone délimi- 
tée par $3C-$3D et $3E-$3F vers la 
zone commençant en $42-$43. Ceci 
permet d'éviter d'éventuels problè- 
mes liés au DOS lors du transfert 
vers l'imprimante. 

2-Transférer la page texte de la mé- 
moire auxiliaire dans la mémoire 
principale à l'endroit souhaité (82400 
— $27FF par exemple). Pour ce 
faire, on utilise la routine AUXMOVE 
du moniteur ($C311). qui déplace la 
zone délimitée par $3C-$3D et $3E- 
$3F vers la zone commençant en 
$42-$43 De plus, il faut forcer le bit 
de retenue du 6502 à O (CLC) pour 
indiquer que le transfert se fait de la 
mémoire auxiliaire vers la mémoire 
principale 

3-H ne reste plus qu'à tout envoyer à 
l'imprimante en faisant attention à la 
disposition des octets de la page 
texte, et en sachant qu'un octet sur 
deux vient de la mémoire principale, 
tandis que l'autre provient de la mé- 
moire auxiliaire. 


Vous pouvez vous inspirer de l'article 
de Christian Guerin, publié dans 


Poms 3, en ajoutant respectivement 
$1C00 et $2000 aux adresses de 
début de ligne de la page provenant 
de la mémoire principale (qui 
commence en $2888) et de celles 
provenant de la mémoire secondaire 
(qui commence en $2400) 


Une deuxième solution. plus écono- 
mique en temps et en place mé- 
moire. serait d'utiliser le Basicium Il 
vous permettrait de réaliser une 
copie d'écran texte grâce à Ja 
commande JH 





DIF. OBJ, paru dans Pom's 11: Pour 
éviter un OUT OF MEMORY avec 
des programmes Basic comprenant 
plus de 160 lignes. il faut taper. 
depuis le moniteur : 

93D1 : B8 B4 B4 

93D4 : 68 68 

93D6 : 4C 54 93 

Ainsi, la pile sera mise à jour et les 
appels à LIST ne poseront plus de 
problèmes 

Yvan Kærnig - Céramiques Gerbino - 
rue du Stade - 06220 Vallauris 


J'ai lu dans Pom's 15 que l'astrologie 
intéressait un de vos lecteurs. Joël 
Moreau. et je suis ravi de pouvoir lui 
répondre. J'ai développé un logiciel 
sur le sujet: il s'agit de “Astrologie In- 
terprétation Rationnelle” Cette ver- 
sion se compose d’une disquette 
contenant, sur une face les fichiers 
des diverses influences astrologiques 
{environ 108 Ko} et des modules de 
calcul d'interprétation sur l'autre 
Ceux-ci sont principalement écrits en 
Basic compilé (très peu d'assem- 
bleur). Le prix est très raisonnable 
Pour plus de renseignements n'hési- 
tez pas à me contacter 


Paul Franceschi - 5 rue de la Forêt 
Sainte - 67500 Haguenau 





Grâce à un programme paru dans 
Pom's 7, j'ai pu réaliser un pro- 
gramme de calculs financiers relative- 
ment complet : taux d'intérêts, ren- 
dement d'investissement à flux de 
montants non égaux et non réguliers 
{portefeuille de boursier. par exem- 
ple). achat d'obligations. effet de dé- 
duction fiscale. Compte tenu de la 
spécificité du problème, Je ne 
m'étendrais pas. Que les lecteurs in- 
téressés me contactent 


Jean Michel Quetin - 8 allée de la 


Boissière - 92350 Le Plessis Robin- 
son 


Vends un Apple {À extension 16K. 
deux drives, un moniteur noir et 
blanc. joystick et paddles au prix de 


10000 Frs et une imprimante OKi 
84 200 cps. 132 colonnes au prix 
de 7000 Frs {valeur 11000 Frs) 


Philippe Zitoun - 11 allée de la Pavi- 
lone - La Celte St Cloud 


Ayant programmé un jeu d'aventu- 
res. j'ai eu la folle idée de le faire 
éditer (à 16 ans. on a encore des il- 
lusions). D'autres l'avaient fait avant 
moi... Je prenais donc de nombreux 
contacts. Toujouis la même réponse : 
envoyez votre disquette. Ediciel. qui 
favorise la création française en tra- 
duisant les plus mauvais programmes 
américains. ma même répondu que 
les jeux d'aventures ne l'intéressaient 
pas... Et puis un beau jour, miracle. 
arrive chez moi une lettre, de 
l'agence Octet. m'invitant aux ‘Jour- 
nées du Logiciel”. ministère de la 
culture à l'appui Emportant mes 
rêves de célébrité et mes disquettes, 
je m'y rendais. À l'entrée, on me re- 
mettait un superbe badge avec 
‘François Coulon - Créateur”. Je 
commencais à m'y croire... 

J'ai erré parmi les stands. hélas rien 
d'intéressant pour moï. sauf peut-étre 
une proposition d'Exelvision m'of- 
frant la possibilité d'adapter mon jeu 
à leur matériel. Je découvrais, avec 
l'arrivée de certarns joumalistes, un 
des buts de l'organisation: s'écouter 
parler entre gens biens. l'informati- 
que est à la mode. n'est-ce-pas ? 


Après la remise des prix, nous par- 
tions. mon père et moi. J'avais perdu 
une demi jounée et ramassé des 
adresses que je possédais aupara- 
vant. 

J'ai donc décider de ne jamais faire 
éditer quoi que ce soit. et de prouver 
que je n'ai pas besoin d'éditeur pour 
faire connaître mes produits C'est ce 
pari que j'aimerais pouvoir tenir, 
grâce à vous. Vous Pom's, en pu- 
bliant cette lettre, vous montrerez 
aux éditeurs qu'ils ne sont pas indis- 
pensables. Vous lecteurs, en achetant 
mon programme, vous prouverez 
que je n'ai pas besoin d'eux pour ga- 
gner de l'argent avec le fruit de mon 
travail. Je n'ai pas besoin d'eux, mais 
J'ai besoin de vous. 

Pour tout autre renseignement sur ce 
jeu ("1928") et sur le prochain n'hé- 
Sitez pas à me contacter. 

Les opinions que j'exprime n'enga- 
gent. bien entendu. que moi. 


François Coulon - 4 route de Ham - 
80190 Nesle 


Votre lettre est un témoignage prou- 
vant, une fois de plus, qu'il est diffi- 
cile de simposer comme créateur à 
16 ans: d'autant plus que la 
commercialisation d'un produit (quel 
qu'il soit) ne peut se faire que dans 
le cadre d'une structure adaptée. 


Imprimere Rosay, 94300 Vincennes. Imprimé en France. Dépôt légal : Mars 85. N° d'erdre 2476. 
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Vous... 


Toujours dans l'optique de sastisfaire nos lecteurs, voict un 
petit questionnaire qui nous permettra de savoir Ce que vous 
pensez de Pom's. Ainst, pour la reaïisation des prochains 
numéros, nous prendrons en considération toutes les 
réponses et remarques que vous nous ferez parvenir. 

Nous procéderons à un tirage au sort, afin de déterminer les 
10 bulletins gagnants. Ceux-ci  béneficreront d'un 
abonnement avec disquettes Pour participer à ce tirage, if 
vous suffit de nous renvoyer ce petit questionnaire avant la 
fin du mois d'avril. 

Ce bulletin pourra, bien sùr, rester anomyme 


Votre âge : moins de 15 ans [] 
de 20à24ans [C] 
de 3534Sans []J 


féminn [] 


ua Apple Il: [] 
un Apple //c [C] 
un Mac 128K [] 
un Lisa CC 


de 15 à 19 ans [] 
de 25 à 34 ans [] 
plus de 45 ans [2 
masculin EF] 


un Apple //e [] 
un Apple /// ([] 
unMac Si2K [] 


Sexe : 


Vous utilisez : 


Vous l'utilisez : cltez vous C3 à votre travail [] 
autre 
Date d'achat .............. 


Vous disposez de : 


. lecteurs 
une imprimante marque . modèle. ...,..... 
une carte 80c. marque . modèle . 


une carte CP/M []J 
un disque dur 0 


une carte couleur [] 
une table traçante C] 


autre rune 


Vous utilisez votre matériel pour : 
votre travait [] une gestion personnelle [] 
jouer 5) le plaisir de programmer [] 


autre 


En programmation, votre niveau : 


debutant C1 
amateur averti [] 


intermédiaire C 
haut niveau ES) 


Quels langages pratiquez-vous aisément : 
Basic [] pascal C2] Forth (] Logo [] 
Assembleur 6502 [] 65C02 C] 68000 C] 


Lisp (C] autres. 


Vous passez Chaque semaine devant l'écran : 
moins de 2 heures [ES entre Jet 8heures [] 
entre 9 et 16 heures C] ptus de 16 heures Œ 
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… et pom's 


Combien de numéros de Pom's avez vous lu... 
Comment avez-vous connu Pom's : 
pubhcité parie dans une revue [2] 
Stccb, Micro-Expo, Apple Expo [1] 
par Un autre amateur CC 


kiosque [CC] 
boutique ff] 


Combien de personnes lisent votre Pom's 

votre opinion, de S {très bon) à O (très mauvais), sur 
le niveau général de la revue 
sa présentation 
l'intérét des programmes 
l'originalité des programmes ...... 

la clarté des articies joints 

l'intérêt pédagogique de ces articles 

les bancs d'essais 

les micro-informations _ ..... 

les disquettes d'accompagnement ...... 


Ce que vous préférez dans Chaque numéro : 


Pom's : 
Ce qu'ii faut développer ou Changer : 12 


Nom : PRET Se cases cs sante 
Prenom LL ipsinetrmansiirae ae nds 
Adresse : 


Ville : 
Code Postal : 


CC ER 


73 


















































DISQUETTES (sauf précision. toutes les disquettes fonctionnent sous DOS 3.3 sur Apple Il + , //e ou //c) 


HAIFA {cé Pons n5) rame à 55,00 F 
H-BASIC ..................… (ch-Pomsn":8). Om à 150.00F 
MUSIC (cf. Pom's n° 10) à 80.00 F 
DISK-MANAGER .…......… (cf. Poms n° 11) à 45000F 
DBSTAG (CP/M) (cf Pomsn"ii) reste à 45000F 
JEUX À smmommsmmtssrmnaennines (Cf: Pons me12} Last à 80.00 F 
JEUX Ban uma) (CL PONTS DNI2Y OO sé à 80.00 F 
BASICIUM ........... COSAEbS (cf. Pomsnt13) se à 15000F 
PE anne ad eee {cf Pom's n° 15) ess à 150,00 F 
MACINTOSH (cf. Pom's n° 1415-16) à 150.00 F 
MACINTOSH (cf. Pom's n° 17) à 80.00 F 
PASCAL: 47 ananas (Cr ROMSN ISIN + à 8000 F 
DEMO MAX THE GOLBE TROTTER (Cfr Editornah um MERE à 55.00 F 
MAX (moniteur étendu) (Voir pa6d he UN NN | Ass à 15000 F 
RECUEILS 
N° 1, recueil des revues 1 à 4 à 140,00 F 
Disquettes d'accompagnement des numéros À à 4 à 15000F 
N° 2, recueil des revues 5 à8 à 14088 F 
Disquettes d'accompagnement des numéros 5 à 8 à 19000F 
ANCIENS NUMEROS 
REVUES [| 4 7 SR à 35.00 F 
REVUES MEN He RS Ad ElElS 
[] 14 15 16 IE à 40.00 F 
DISQUETTES | | 1 || 2 SOIT ES 
RS 7 SR RE EEE 
AP El 2 13 | 14 LRO Ses: à 55.00 F 
EbCR ME. 
ABONNEMENTS 
POUR 6 NUMEROS à partir dun 
ABONNEMENT SANS DISQUETTES … à 20000F 
ABONNEMENT AVEC DISQUETTES (Apple II +, //e, //c) . … à 480.00F 
TOTAL TTC 


Supplément expédition 
par avion à l'étranger 


M@NTANT 
BU REGLEMENT 


Ces tarifs comprennent l’envoi postal en France métropolitaine. CEE et Suisse 


Supplément avion hors CEE : i0 F par numéro et'ou disquette 





Nom 





Adresse 


Envoyez ce Bon et vetre réglement à 


Editions MEV - 64-70. rue des Chantiers - 78000 VERSAILLES 





(Abonnés : n'oubliez pas de joindre l'étiquette-adresse). 
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Cest pour pouvoir faire face à une 
demande plus de dix Fois 
supérieure à ce qui avaut été prévu 
qu'Hello a décidé de lancer une 
nouvelle fabrication de 2 000 
cutes Apple-Tell Avantage de 
là grande série : de très sensibles 
réductions de coût sur le prix des 
composants LSI et FLSI. 
permettant de taire chuter de plus 
de 28 % le prix de la cirte 
Apple-Tell 
Le medem vedette de votre Apple. 
déjà couronné Pomme d'Or 1883. 
a suscité en 1984 trois nouvelles 
Pommes d'Or, récempensant trois 
des (très nombreux) logiciels que 
ses utilisateurs ont déjà dédiés 
à Apple-fell : 
—> MICRO-KIDS : serveur 
monoyoie pour les établissements 
d'enseignement. 
— VASA : outil de composition 
de pages vidéotex incluant 
un seneur arberescent complet. 
— TÉLÉBASIC : Basic télécom 
et vidéotex, destiné à la création 
de serveurs et de terminaux 
automatiques. 
Parmi les autres logiciels créés peur 
Apple-Tel : 
— TELEPOM : enrichissement 
du Basic (60 instructions: nouvelles) 
permettant de créer soi-même 
des seneurs (Ascii et vidéotex), 
des messageries ou toutes applications 
télématiques 
— ASCII EXPRESS : outil général 
de télécom destiné à pennettre 
l'impression ct le stockage des 
données reçues, incluant un 
émulateur universel de terminaux. 
—> PROTEXT : éditeur-souris, 
pennettant la composition (texte et 
dessins) de pages Télétel destinées 
à des serveurs 
— FAKR : serveur Ascii 
(messagene électronique intégrée. 
incluant panneau d'aunonces, 
annuaire des abonnés. 
téléchargement. horloge temps réel, 
mots de passe, console opérateur, 
etc.) 
— DISCOBOLE : copie de disquettes 
par téléphone {Dos, MemDos, Pascal. 
CP M). 
—> TRANSTEXT : cœuvernisseur 
d'écrans (Haute Résolution 

Télétel). 
=> BASI : module-système 
permettant li commande du modem 
depuis le Basic, sous ProDos 
—> PROSPECTOR : générateur 
d'étiquettes-adresses par consultation 
automatique de l'annuure 
électronique selon des choix 
socioprofessionnels et géographiques. 
=) CALYA-KIT : consultation 








Prix utilisateur H ville février 108 


automatisée du centre serveur 
“Calvados” 

=? PELAGE : serveur spécialisé. 
permettant la consultation d'un Apple 
à pactir d'un réseau de nrinitels. 
(Beux wersions : BasicDes 3.3 et 
MemDos.) 

—DNESTORS : serveur à QUATRE 
ACCÈS SIMULTANÉS, disque dur 

10 Mo, gestion automatique des 
touches de Fonctions du minitel, 
arborescence et mots clés intégrés. 
—DNESTORI : serveur moneroie 
{même caructéristiques que Nestor+) 

Les serveurs sont sens! 


APPLE-TELL COMPREND : 

eutie cute Modem (avec terminal Asci 
intégré) inchiun 1m décodeur Télétel 
en logicicl d'émulition de terminal 
sbnitel vnrichi des Eumeuses trois 
fonctions dent l'absence est une tragédie 
quotidicune pour les utilisateurs 

de Télétel 

IMPRESSION (sur limprnante 








STOCKAGE sur disquettes des pages CARACTÉRISTIQUES 
















consultées (formats Télétel ou Ascii). GÉNÉRALES : 
AUTOMATISME : interrugabon e modem 1 200 75 (Cat) et 300 full (standards 
automaique des serveurs (appel Cort et Be), à numérotation automatique 
tékplenique. onentatien Transpac. SAONE PM 
identification. choix successifs). serveurs 300 ou 1 200 hauds, . 
enregistrement des dennées consultées, SR Te palais 
puis Lailement etinœærporation 20 TIR VEN 

; e cufichable dans n importe quel slot lim 
des données dans l'application de votre Apple 2° ou 2° (48 K. ui + 
{Ces procddures d'interrogation sant disquette). | »” 
crétes peur l'utilisateur. sans aucun e transparence totale visas y 
langage de progranmatien. grâce au * du système ‘ 
mode ALPRENTISSAGE d'Apple-T'ell ) Ce 4 Pd HELLO 
Enfin et surloni, une jeuction est ! < fomratique 

È + 
possible avec les outils de travail ‘ L ruc de Metz 
habüuels (Apple-Wnier, isicalc. "é 75010 PARIS 
Muluplur. PFS, Quick-File. 5 Tél. : (1) 524.30.34 
complafacturaton. Le Télex : FLASHL210 500 F 
fichier, ele.) Fu NOM 
F 
+ 
5e SOCICLE 
» Adresse 
L4 
#7 Ville 
°° Code postal Tél 
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